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I.   INTRODUCTION  AND  ACKNOWLEDGMENTS 

The  Faculty  Publication  System,  FACPUB,  a  system  to 
computerize  the  faculty  publication  records  of  the  NPS 
faculty,  was  created  in  response  to  several  demands.   The 
Dean  of  Research  recognized  the  need  for  a  compilation  of 
the  publications  and  presentations  of  the  faculty.   The 
Research  Office  periodically  issues  a  report,  "Recent    NPS 
Publications ,"    [1]  covering  the  most  recent  three  years  and  a 
computerized  listing  would  assist  in  its  preparation.   In 
addition  the  NPS  library  is  asked  to  respond  to  requests  for 
lists  of  technical  reports,  books  and  other  publications 
produced  by  NPS  faculty. 

The  system  was  developed  under  the  urging  of  Dean 
W.  M.  Tolles   by  the  author  while  serving  as  the  Assistant 
to  the  Dean  of  Research.   Generous  help  and  most  of  the  APL 
programs  in  the  system  were  provided  in  their  initial  form 
by  Professor  K.  T.  Marshall  who  developed  them  for  use  in 
publishing  the  OR/MS  Index  [2]).   Numerous  changes  have  been 
made  in  these  programs,  but  the  FACPUB  system  would  never  have 
existed  in  its  current  form  without  them. 

Ms.  Helen  J.  Waldron  and  Ms.  Julie  Diepenbrock  Herrick 
of  the  Cataloging  Division  of  the  NPS  Library  were  involved 
in  initial  system  specifications  and  Ms.  Herrick  has  been 
heavily  involved  in  overseeing  the  actual  data  input  and  in 
suggesting  improvements  in  the  programs  used  for  that  purpose. 
The  burden  of  data  input  has  so  far  fallen  largely  on  Ms .  Rumi 
Esocbido  of  the  Cataloging  Division  although  substantial  help 
was  provided  in  the  early  phase  of  the  project  by  Mrs .  Linda 
Ishii . 

Ms.  Patricia  Meadows  of  the  Operations  Research  Depart- 
ment deserves  recognition  for  having  written  the  programs  LIST, 
BOOK,  GETSORT  and  GETBOOK. 


II.   SYSTEM  OVERVIEW 

A.   System  Requirements 

The  basic  requirement  for  the  FACPUB  system  was  that 

it  provide  a  convenient  way  of  entering,  sorting,  and  printing 
faculty  publication  records.   More  specifically  the  following 
requirements  were  identified: 

1.  The  input  process  should  be  convenient  for  the  operator 
and  should  not  require  that  the  operator  be  a  skilled 
computer  user. 

2.  The  system  must  be  capable  of  producing  upper  and  lower 
case  output. 

3.  The  system  must  be  capable  of  sorting  records  according  to 
the  following  characteristics : 

a.  academic  department 

b.  publication  type 

c.  faculty  member 

d.  security  classification 

e.  year  of  publication 

f.  alphabetically  by  first  author. 

It  was  never  intended  that  the  system  should  be  an 
on-line  system  for  answering  inquiries  about  specific  author's 
records.   Such  inquiries  will  be  answered  by  reference  to  master 
lists  of  publications  produced  periodically. 


B.   System  Design 

The  FACPUB  system  is  a  terminal  oriented  system  as  far 
as  the  file  construction  is  concerned.   Records  are  entered  by 
a  user  working  interactively  with  APL  programs  operating  under 
CMS .   The  records  are  written  on  private  disk  space  and  periodi- 
cally written  onto  tape  for  back-up  protection  and  as  necessary 


when  the  available  disk  space  is  filled.   The  records  are 
printed  from  the  tape  using  FORTRAN  programs  operating  under 
OS.   Sorting  can  be  done  conveniently  in  CMS,  but  larger 
files  must  be  sorted  under  OS  and  sorting  program  GETSORT 
was  prepared  for  this  purpose.   It  is  also  envisioned  that 
once  the  files  are  constructed  for  a  given  year  and  written 
on  tape  that  GETSORT  and  the  accompanying  print  program  LIST 
will  be  used  to  sort  and  print  these  files  producing  master 
copies  for  the  library's  use. 

Figure  II. 1  shows  the  system  design. 
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C.   Input  Data  for  FACPUB 

The  input  data  for  the  FACPUB  system  is  organized  in 
the  library's  records  by  individual  faculty  member.   The  pri- 
mary source  of  this  information  is  through  the  annual  Faculty 
Activity  Reports.   Obtaining  accurate  and  complete  data  in  a 
timely  manner  has  been  a  major  problem  to  the  library.   In 
fact  a  side  effect  of  using  the  FACPUB  system  has  been  to 
identify  a  significant  discrepancy  between  the  records  made 
available  to  the  library  and  those  in  the  academic  departments. 
Previous  issues   of  the  volume  entitled  "R&oent   NPS   Publications' 
contain   numerous  entries  not  forwarded  to  the  library  through 
the  Faculty  Activity  Reports.   In  19  78  a  change  was  made  in 
the  form  of  these  reports  with  the  intention  of  soliciting 
more  complete  data  for  the  library,  but  it  is  too  early  to  tell 
if  it  has  been  successful. 

Another  problem  in  the  input  data  is  that  multiple 
authors  will  often  report  the  same  publication  differently. 
Perhaps  the  titles  will  vary,  or  the  citations  might  differ,  or 
more  commonly,  the  authors  permute  the  names. 

Since  the  input  data  is  organized  by  individual  faculty, 
duplicate  entries  for  multiple  authors  are  expected.   A  signifi- 
cant manual  effort  would  have  to  be  made  to  avoid  this  dupli- 
cation and  it  was  not  felt  to  be  worthwhile.   Provision  has 
been  made  within  FACPUB  to  identify  primary  and  secondary  list- 
ings (see  Section  III-A3  for  details)  but  for  this  to  be  success- 
ful it  is  necessary  that  duplicate  entries  (for  multiple  authors) 
all  list  the  same  first  author. 

Another  minor  problem  in  the  data  is  that  some  faculty 
members  hold  joint  appointments  between  departments,  and  some 
have  changed  departments.   This  causes  some  ambiguity  with 
respect  to  the  department  code  assigned  to  each  entry,  but 
it  is  still  possible  to  sort  out  any  individual's  publications 
by  his  faculty  ID  number. 


III.   DETAILED  SYSTEM  DESCRIPTION 

A.   Record  Format 

Each  entry  in  the  system  is  stored  in  a  record  800 
characters  long.   The  records  are  written  by  INPUT  which  is 
an  APL  program  operating  under  CMS.   Table  III.l  is  a  descrip- 
tion of  the  contents  of  each  record.   Following  the  table  is  a 
further  description  of  the  contents  of  each  field. 


Field  No. 

Start 

End 

Length 

Contents 

1 

1 

3 

3 

Department  Code 

2 

4 

4 

1 

Publication  Code 

3 

5 

5 

1 

Print  Code 

4 

6 

8 

3 

Faculty  ID  Number 

5 

9 

9 

1 

Security  Classification 

6 

10 

12 

3 

Year  of  Publication 

7 

13 

13 

1 

Number  of  Authors 

8 

14 

43 

30 

Author  Number  1 

9 

44 

73 

30 

Author  Number  2 

10 

74 

10  3 

30 

Author  Number  3 

11 

104 

133 

30 

Author  Number  4 

12 

134 

163 

30 

Author  Number  5 

13 

164 

193 

30 

Author  Number  6 

14 

194 

223 

30 

Author  Number  7 

15 

224 

253 

30 

Author  Number  8 

16 

254 

493 

240 

Title 

17 

494 

736 

243 

Citation 

18 

737 

800 

64 

Translated  Authors 

TABLE  III.l.   Record  Contents 


1 .  Department  code 

Up  to  three  digits  identifying  the  department  code 
associated  with  the  author  for  whom  this  publication  is  being 
entered.   For  faculty  with  joint  appointments  and  faculty  who 
have  changed  departments  this  is  ambiguous,  but  probably  the 
primary  department  or  the  current  department  should  be  entered. 
Field  4  allows  a  sort  by  faculty  member  so  that  all  publica- 
tions of  a  specified  author  can  be  listed. 

2 .  Publication  code 

A  one-character  code  which  identifies  the  type  of  publi- 
cation according  to  the  following  scheme.   The  INPUT  program 
accepts  the  library's  two-  or  three-character  code  (in  upper  case) 
and  translates  it  to  the  single-character  form  for  storage  in 
the  record. 


LIBRARY'S    CODE  ONE    CHARACTER   CODE  MEANING 

Unpublished 

Book 

Textbook 

Contributed  Paper,    not  published 

Invited  Paper,    not  published 

Contributed  Paper,   published  in 
Proceedings 

Invited  Paper,   published  in  Proceedings 

Editor  of  Symposium  Proceedings 

Letter  to   editor 

Technical  Note 

Paper  Published  in   Journal 

Invited  Paper  in  open  literature 

Abstract  of  Contributed  Paper 

Abstract  of  Invited  paper 

Chapter  of  book 


UNP 

A 

BK 

B 

TBK 

C 

•   PRC 

D 

PRI 

E 

SYC 

F 

SYI 

G 

SYE 

H 

LTR 

I 

TN 

J 

PP 

K 

PI 

L 

ABC 

M 

ABI 

N 

CHB 

0 

LIBRARY'S    CODE  ONE    CHARACTER   CODE  MEANING 

Project   Report 

NPS   Technical   Report 

Patent  application   or   award 

Book   Review 

Translation 

Thesis 

Miscellaneous,    pamphlets,    etc 


RPR 

P 

RPT 

Q 

PAT 

R 

REV 

S 

TR 

T 

THE 

U 

MIS 

V 

3.   Print  code 

A  single  digit  used  in  the  printing  programs.  Its  pri- 
mary function  is  to  suppress  the  printing  of  duplicate  entries. 
Recall  that  the  input  is  organized  by  individual  faculty  member 
and  publications  with  multiple  NPS  authors  will  be  entered  more 
than  once.  The  print  code  is  assigned  automatically  by  the 
INPUT  program  and  has  the  following  meaning: 

0  The  faculty  ID  number  entered  in  field  4  cannot  be 
found  in  the  list  of  faculty  ID's.   (The  ID  number 
should  be  checked  or  the  faculty  directory  should  be 
updated  to  include  this  author) . 

1  Primary  listing.   The  faculty  ID  number  of  this  record 
corresponds  to  the  first  author. 

2  The  faculty  ID  number  of  this  record  does  not  correspond 
to  the  first  author  and  the  department  code  for  this 
author  is  not  the  same  as  the  department  code  for  the 
first  author.   (This  is  a  secondary  listing  but  in  a 
different  department  from  the  primary  listing.) 

3  Same  as  2  except  the  primary  listing  has  the  same 
department  code  as  this  record. 


The    first   author   is    not    in   the    faculty   directory    (he 
may  be   outside   NPS ,    or    the    faculty   directory  may  be 
incomplete) . 

The   department   code    for   the    author  with   this    ID  number 
does   not   correspond   to    the   department   code    in   the   record 
(This   normally   indicates   an  error   since  we   expect  each 
faculty  member's   entries    to   bear   his   own   department   code, 
The   error  may  be    in    the   record,    or   the    faculty  member 
may  have   changed   departments    and   the   directory   should 
be    updated. ) 

The   logic   for   assigning   print   codes    is    shown   here. 

k 

NO 


YES 


IS    YR  <    76? 


Print   Code  =   1 


i 


find  ID 
in   directory 


I 


Can't 


Print  Code   =   0 
(Message) 


OK 


Does   the   Dept  Code 
for   this    ID  match 
the   Dept  Code   in 
the   record?    (Check 
all  occurrences   of 
this   ID  number. ) 


NO 


NO 


Print  Code   =   5 
(message) 


ir  YES 


Is   author  with   this 
ID  the    first   author? 


YES 


Is  autnor  with  this 
ID  one  of  the  authors 
entered? 


No 


T 


YES 


1 


►Print  Code   =   1 


NO 


Find   first  author 
in   directory 


J 


Can' t.  Print  Code   =  4 


OK 


(message) 


Print  Code   =   0 
(message) 


Does   Dept   Code   in 
record  differ   from 
Dept  Code    for    (any 
occurrence   of)    first 
author  of  directory 


TNO 


YES 


Print  Code   =  2 


Print  Code   =    3 


Because  of  the  difficulty  in  "backdating"  the  directory  for 
past  years,  all  new  entries  dated  1976  or  earlier  will  be 
assigned  print  code  =  1.   Print  codes  0  and  5  should  not  occur 
If  they  do,  they  should  be  viewed  as  an  indication  that  some- 
thing is  wrong,  probably  with  the  faculty  directory. 

In  a  complete  listing  of  publications  sorted  by  depart- 
ment and  alphabetically  by  author  only  records  containing  a 
print  code  1,  2,  or  4  should  be  printed.   This  will  suppress 
duplicate  entries  in  the  same  department. 


4 .   Faculty  ID  number 

A  unique  ID  number  associated  with  the  faculty  member 
for  whom  this  record  is  being  entered.   The  list  of  faculty 
members  and  their  ID  numbers  is  maintained  as  the  faculty 
directory.   For  new  faculty  any  number  may  be  used  providing 
it  does  not  conflict  with  an  existing  faculty  ID  number. 
Section  III.E  contains  a  complete  list  of  faculty  and  ID 
numbers . 


5 .   Security  code 

A  single  character  identifies  the  security  classification 
of  the  document. 

T  =  Top  Secret 

S  =  Secret 

C  =  Confidential 

U  =  Unclassified 

The  INPUT  program  expects  this  in  upper  case. 


6 .   Year  of  publication 

This  will  be  the  year  of  publication,  presentation,  sub- 
mission, patent  application,  or  award,  etc.   The  INPUT  program 
will  accept  two  or  four  digits,  i.e.  79  or  19  79.   It  will  record 
only  the  79  in  either  case. 


7.   Number  of  authors 

This  field  is  self-explanatory,  maximum  of  eight  authors 


8.   Author  number  1 

This  field  should  be  typed  as  follows: 

Howard,  G  T 

Do  not  put  punctuation  after  the  initials  and  do  not  put  punctu- 
ation at  the  end.   Do  include  the  comma  after  the  last  name 
followed  by  a  space.   Separate  the  initials  by  a  space.   (These 
are  library  requirements,  the  record  will  accept  any  string  of 
30  characters. ) 


9-15.   Authors  2  through  8. 
As  above . 

16.   Title 

Type  with  punctuation  exactly  as  desired.   (The  printing 
programs  will  reformat  the  information  for  outputting.)   Up  to 
240  characters  are  allowed.   The  information  is  accepted  exactly 
as  typed  at  the  terminal.   For  very  short  titles  the  information 
can  be  typed  on  one  line,  but  the  program  expects  two,  so  it  is 
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necessary  to  hit  the  carriage  return  a  second  time.  For  very 
long  titles  do  not  hit  the  carriage  return  until  the  remaining 
information  is  less  than  120  characters  in  length.  For  titles 
of  intermediate  length,  say  160  characters,  the  operator  might 
type  50,  or  60,  or  more  characters  (at  least  40  but  fewer  than 
120).  Then  hit  the  carriage  return  and  continue  with  the  re- 
maining information. 


17.   Citation 

Type  as  desired.   The  instructions  given  for  the  title 
field  apply  here  also.   A  special  requirement  exists  in  the  case 
of  a  book  chapter  (CHB)  or  a  symposium  proceedings  (SYC  or  SYI) . 
The  library  requires  that  the  information  be  identified  in  the 
output  as  follows : 


IN: 


To  accomplish  this  the  input  should  include  an  asterisk  just 
before  the  information  which  follows  "IN."   The  word  "IN"  should 
not  be  typed.   The  output  programs  will  recognize  the  asterisk 
and  replace  it  with  IN  in  the  format  shown  above. 


18.   Translated  authors 

This  field  is  of  no  concern  to  the  user  of  the  system. 
The  INPUT  program  does  not  request  information  for  this  field. 
It  is  filled  automatically  by  the  INPUT  program.   It  contains 
a  64  character  translation  of  the  author  fields.   The  author 
fields  are  stripped  of  punctuation  and  rewritten  here  for  later 
use  in  sorting  the  records  alphabetically  by  author. 
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B .   File  Description 

The  records  described  in  Section  III-A  are  constructed 
using  INPUT,  CORRECT  and  DISPLAY  programs  described  in  Section 
III-C.   They  are  stored  in  CMS  files  under  user-selected  names. 

The  INPUT  program  asks  "what  file";   and  if  no  file 
with  that  name  exists,  it  is  created.   New  entries  are  written 
into  the  file  in  sequential  order  and  the  INPUT  program  reports 
the  sequence  number  to  the  user  at  the  terminal. 

Each  file  is  closed  by  the  INPUT  program  using  the  CMS 
command  FINIS  after  each  record  is  written.   In  the  event  of 
computer  failure,  user  error,  or  a  communication  problem  only 
the  current  record  will  be  lost. 

The  file  size  is  limited  only  by  the  amount  of  private 
disk  space  available  and  this  can  easily  be  ascertained  by 
issuing  the  CMS  command   s   (for  status) .   Likewise  the  current 
files  residing  on  the  disk  can  be  determined  with  the  CMS 
command  1   (for  list) .   At  any  time  the  user  should  find  there 
all  previously  constructed  files  unless  they  have  been  erased 
or  unless  there  has  been  a  disk  failure.   As  protection  against 
these  possibilities,  the  files  should  occasionally  be  written 
on  a  tape. 

The  files  are  MEMO  files  containing  records  800  charac- 
ters in  length.   The  file  names  can  be  changed  using  the  CMS 
command  ALTER.   They  can  also  be  COMBINED,  SPLIT,  etc.,  but 
the  records  should  be  manipulated  using  only  the  APL  programs 
INPUT,  CORRECT,  and  DISPLAY.   The  user  should  not  attempt  to 
EDIT  the  records. 
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C.   Program  Descriptions 

This  section  describes  the  programs  required  to  use  the 
FACPUB  system.   They  are  divided  into  three  main  categories. 
The  program  listings  are  found  in  Section  V  (arranged  in  the 
same  order  as  here) . 

1.   Programs  Used  at  the  Terminal 

a.   Programs  used  during  file  creation 

INPUT: 

Purpose  —  This  program  works   interactively  with   the    user   to  enter 
new  records   into   the   FACPUB  system. 

Access:       This   is   an   APL  program  in    the  APL  workspace    called   TT . 
The    user  must  be   signed  on    to  CMS  and  must  have   entered   the   APL   system 
by    typing      [aplj     without    the  brackets.      Then    the    user  must  issue    the 
command,    [*load   tt] .      The   above   requirements   are   explained  in   more 
detail   in    the    user's   guide,    Section   VI.      Once  -these   preliminaries 
have  been   completed,   it  is   only   necessary   to    type    [input]. 

Description  —  The   INPUT  program  asks    the    user  for   the  information 
already   described   under   "record  contents ."      The   first   question   asked  is 
"What  file?" ,    and   the    user  may   respond  with   any   filename   acceptable 
to  CMS.      It  is  suggested  that   the   file  names  be   selected  to  aid   the    user 
in   recalling   their  contents .      For  example  DEPT5279    might  be    the   file 
for  department   52   for   the   year  1979.      Or   the    user  might  wish   to  have   a 
file    called  ALL79 ,   or  ADD78.      After   the    user  has    responded  with   a   file 
name,    INPUT  will   ask mfor   the   department   code   and  will   give   a  message 
which  says    "enter      z      to  stop."      If  the    user   does  not  stop,     INPUT  will 
proceed  with    the   questions   and  when   one   record  is   complete ,    it  will 
return   to  ask   for  the  next    department   code.      Each  item   will   be   written 
into   the   file   originally   identified.      To   create   a  new  file,   exit   from 
INPUT  by    typing      z      for   the    department   code    and   then    typing   [input] 
again . 
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The   INPUT  program  will   create   a   file  with    the   designated  name 
if  one    does  not  already  exist.      If  it   does  exist,    the   current  record 
will  be  written   in    the   file   following   the   last   record.      A  sequence 
number   (row  number,    record  number)    is   assigned  to  each  entry  as  it   is 
made.      This  number  is  printed  at   the   terminal    for   the    user's   reference . 
It  is   used  in    the   CORRECT  program  to  locate   this   record  if  corrections 
to  it  are   necessary ,   and  it  is    used  in    the   DISPLAY  program.      (The 
sequence  number  of  each   record  is  also  displayed  when  printing  the 
files   using  the   LIST  program.) 

Occasionally  the    user  will   attempt   to  input  information  before    the 
computer  is  ready   to  accept  it.      If  this  happens   the  message    "interrupt"  wiJ 
appear  and  the   current  record  will   be   lost.      The    user  should  simply  begin 
again   with    that  record. 

It  is  not  necessary  for   the    user  to  SAVE  or  FILE  his  work    (except 
when   working  with   the   faculty   directory)    since   this   is  handled  auto- 
matically by   the  programs.      When    the    user  has   completed  a  session  with 
INPUT  or  CORRECT  or  DISPLAY,   he   may  simply  sign   off  and  his  work  will 
be   retained.      Likewise  in    the  event  of  a   computer  failure    (except   the 
loss  of  the  disk)    all   records  except   the   one   currently  being  input  will 
be   retained. 


CORRECT: 

Purpose  —  To  work   interactively  with   the    user   to   correct  existing 
records . 

Access — (when   in   the  APL  environment  with    the  workspace   TT  loaded), 
type    [ cor re ct ] . 

Description — After  the  user  types  [correct] ,  the  program  will 
ask  "What  file?"  .  After  this  question  is  answered,  the  program  will 
ask    "sequence  number."      The    user  should  respond  with   the  sequence  number 
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(row  number,    record  number)    referred  to  in    the   description   of  INPUT. 
Next  be  will  be   asked   "field  number."      The    user  should  respond  with   a 
field  number  between   1    and  17  as   described  in   Section    III-A    (Record 
Formats)  .      The  programs  will    cause    the   current   contents   of  that   field 
to  be   displayed  and  will   ask   the    user  to   type    the    desired  new  contents 
or  to  hit    the   return  key  if  the   current   contents  should  be   retained. 
Then    the  question    "field  number"   will   be   repeated. 

To  exit    from  CORRECT,    respond  with    [0]    (zero)    when   asked  for 
the    field  number.      Then    the  question  "sequence   number"   will   be    repeated. 
The    user  can  enter  a  new  sequence  number  if  he   wishes   to  correct   another 
record  in    the  same   file  or  he   may  enter   [0]    (zero)    to  exit   from  CORRECT. 

A  special    message   will   appear  at   the    terminal    if  the   user  enters 
16   or  17  when   asked  for   the    field  number.      These   fields   are    very   long, 
240   and  243  characters ,   and  it   is    unwieldly   to  have    to   retype    the  entire 
field  to  correct   a  small   error.      In    retyping,  new  errors   are   likely   to 
be  introduced .      The  special    message  indicates   that   the    user  can  hit   the 
return  key   to  keep   the   current  contents ,    can    type    [XXX]    to  erase    the 
entire   field,    or  can   type    three   characters   to  identify   the   location 
of  an  error.      In    the  last   case   the   terminal   will    display   the   field  from 
the  beginning   until    the   three   characters   are   encountered  and  will   ask 
the    user   to  retype    the   remainder  of  the   field. 


DISPLAY; 

Purpose  —  to   display   at   the    terminal    the   contents   of  any   record 
(or  records)  . 

Access — (when   in    the  APL  environment  with   the  workspace  TT  loaded)  , 
type    [display] . 

Description  —  The   program  will    ask   "What   file?".      After   this 
question   is   answered,    the    user  will  be   asked   to  identify   the   sequence 
number(s)    (row  number  (s)  ,    record  number(s) )    of  the   record(s)    to  be 
displayed .      He   should  respond  with   a   list   of  record  numbers  separated 
by  spaces.      This  will    cause    these    records   to  be   displayed. 
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b.   Programs  used  to  maintain  the  faculty  directory 
ADDFAC : 

Purpose  —  to  add  faculty  with    their  ID  number  and  department  code 
to   the   faculty   directory . 

Access — (when   in    the  APL  environment  with   the  workspace    TT  loaded) 
type    [addfac]  . 

Description  —  The   ADDFAC  program  is  self- documented .      It  will 
instruct    the    user   to  make   a  new  entry   into   the    directory  in    the   following 
forma t : 

[ID     space      space      NAME     space      space      DEPT]    . 

It  will    then   display    the  entry   and  print  a  message    "if  OK  issue   save 
command,    if  not   reload   TT." 

The  program  is  modifying  an  APL  variable  AA  which   contains   the 
complete   faculty   directory .      In   order  for  the   change    to  be  effective   at 
the  next  session,   it  must  be   saved.      This  is   done  by    typing  the  symbol 
for  APL   commands  and  the   word  save,    [*  save]   or   [)    save]. 

If  several  incorrect  entries   are   made  before  a   correct  one,    and 
then    the   save   command  is  issued,    the  errors  will  be   saved   too.      To 
prevent    this,    if  an  error  is  made  when   dealing  with    the   directory ,   it 
is  wise    to   reload  TT  by    typing      [*     load      TT]      or      [)      load      TT] . 


FIXFAC: 

Purpose  —  to  make    corrections    to  existing  directory  entries   or 
to  delete    them  entirely . 

Access — (when   in    the  APL  environment  with    the   workspace    TT  loaded) 
type      Ifixfac] . 
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Description- -The  program  is  self -documented .  It  will  ask 
the  user  to  identify  the  entry  needing  correction  by  typing  the  ID 
number.  This  number  should  be  unique  and  the  program  starts  at  the 
top  of  the  directory  looking  for  it.  The  program  then  asks  if  the 
entry  is  to  be  deleted  or  changed  and  gives  instructions  to  do  it. 
When  completed,  the  program  will  remind  the  user  to  issue  the  save 
load  tt  command.       (For  explanation ,    read  the   description   of  ADDFAC.) 

SEEFAC: 

Purpose  —  to   display    the   faculty    directory . 

Access  —  (when   in    the  APL  environment  with    the   workspace    TT 
loaded),    type    [seefac] . 

Description  —  The  program  simply  prints    the   APL   variable  AA 
which   contains    the   faculty   directory .      The  number  of  lines  printed 
is  equal    to   the  number  of  entries   in    the   directory . 

c.      Programs    used   to  write    the    files   on    tape 


LIBTAPE 


Purpose  —  the    files   constructed  by    the   programs   INPUT  and  CORRECT 
are  not  suitable   for  printing  since    they  contain   special   APL   characters 
not  recognizable  by    the  printer.      LIBTAPE  will    translate    these   symbols 
to    the   intended  form  and  will   write    the    files   on    tape. 

Access  —  This  program  is   to  be    used  from   the    terminal   when   a    tape 
is   attached  as   device   181   with  a   ring.      For  example,    suppose    that  a   memo 
file   called  ALL79   is   on    the     P     disk.      The   following  commands  will   write 
this   file   onto   tape    (suppose    the    tape   has  been  positioned)  : 


[filedef     01     dsk      all79      memo] 
[$        libtape] 


Output  will   appear  at   the    terminal   indicating   the  number  of  records 
processed. 


Description — It   is  important   to   understand   that  the   file   just 
written   onto   tape   is   a   derivative  of  the    file   originally  constructed 
by   the   INPUT  and  CORRECT  programs.      It  is   for  printing  only  and  it   can 
not  be    used  as   the  parent  copy   for  permanent  retention .      Corrections 
to   these   records   and  additional   input  must  be   done   in    the   original 
(parent)    file. 

The   file   just  written   onto  tape   is  not  in    TAPE  DUMP   format 
and  the    tape   command  LOAD  will  not  work   on    this    tape.      The   LIBTAPE 
program  writes  an  end  of  file    (eof)    after  each    file.      If  several 
files   are    to  be   written   sequentially    using  LIBTAPE,    the   series 
of  commands  above   is   repeated  with   the  name   of  each   file  substituted 
for  ALL    79. 

The    disk  contains   a   compiled   (TEXT)    version   of  LIBTAPE.      A 
FORTRAN  listing  is   contained  in    this   report. 

ICHAR:      One   other  program,   ICHAR,    is   called  as   a  subroutine .      A    t&xt 
version  is  on   the   disk. 

2 .      APL   Programs    Called   as    Subroutines   by   the   Programs    in   1 
APLNAME 


This  APL  program  accepts    user  supplied  input   to  construct  a 
CMS  filename  . 

FILESIZE 

Examines  a  specified  CMS  file    to   determine    the  number  of  records 
it  contains . 

WRITE 

Writes   an  APL   variable  into  a  specified  CMS  file. 

WRITEERROR 

Identifies  errors   occurring  when  executing  the   WRITE  program  and 
returns   a  message    to   the    user. 
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READ 

Reads    the   content  of  a  CMS   file   and  assigns   it    to  an   APL    variable. 

READERROR 

Returns   a  message    to    the    user  if  an   error  occurs  in    the   READ 
program. 

RINDEX 

Check    the    user  input   "pub   code"   and  finds   the   corresponding  single 
character  code  . 

LIT 

Translates   a  numerical    value    to  a   literal. 

NUM 

Translates   a  literal    to  a  numerical    value. 

NAMECHG 

Performs   a    translation   on    the   author  fields    removing  punctuation . 
The   output  is   stored  in    the    record  for  later   used  in   sorting 
alphabetically  by   author. 

BLANK2 


Examines  a  variable    until    2   consecutive  blanks   are   found.    It   returns 
the  portion   of  the   variable  preceding  the  blanks.      It  is   called  from 
FACULTY. 

TRANS41AJ 

This  program  is   required  when    using  the   IBM2741    terminal .      It  is 
used   to    translate    the    variable  before   writing  in    the    file.      INPUT,    CORRECT 
and  DISPLAY  must  be   modified  for  the   2741    terminal  . 
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TRANSAJ41 

Used  before   reading    (see    TRANS41AJ)  . 

PRNTCODE 

Automatically  accesses   the   faculty   directory  and  assigns    the  print 
code . 


FORTRAN   Programs    Running   Under   OS    Used    to   Produce    Final  Output 

LIST 

Purpose — This  is   the  basic  printing  program  for   the   FACPUB  system. 
It  is   used  to  provide   a  sequential   listing  of  any   file  after  it  has  been 
processed  by    the  program  LIBTAPE . 

Description  —  The  attached  program  listing  is  set  up  to  print  files 
11,  12,  and  13  on  tape  LIB202 .  The  input  data  cards  specify  the  number 
of  files  to  be  read  and  the  number  of  records  to  print  from  each  of  the 
files.  In  this  case  the  files  contained  5  37,  476,  and  614  records  re- 
spectively.     The   contents  of  LI3202   is   given   later  in  Figure   14.1. 

The  LIST  program  does  no  sorting  on    the  input  files;    it  simply 
prints   them  sequentially .      For  reference   a  sequence  number  is  printed 
in    the   left  margin.      This  sequence  number  is  not  part  of  the   record  but 
is  appended  by   the   LIST  program. 

LIST  formats    the   records  as  shown   in    the    following  example: 

200  5  5   'J HP    3         9    Q      78 

Marshall,  K  T;  Richards,  p  R 
Joint  ORSA/TIMS  index, 

Operations  Research  Society  and  The  Institut 
Management  Science,  1978. 

The   first  line   contains   fields   1    through  6.      The   remaining  fields 
are   the   authors,    the   title,   and   the   citation .      Field  18    (translated 
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authors)  is  not  printed.  Notice  that  field  2  has  been  translated  by 
LIST  to  the  three  character  publication  code.  The  record  contains  a 
one-character   version   of  the  publication   code. 

The    details   of  LIST  can  be   obtained  from  the  program  listing,   but 

it   will  not  break   words  in    the   middle   and  it  will  paginate    the   output. 

The   output   is   suitable    for  immediate    reproduction  or  compilation   into 

bound  form  although    the    user  may   wish   to   suppress  printing  of  line   1. 

Recall    from  the   description   of  INPUT   that   in    the   case   of  publication 
codes   CHB,    SYC,    and  SYI ,    an  asterisk  is    to  be  entered  in    the   record  in 
place   of  the  word   "IN."      In    this   case,    the   LIST  programs   will   output   the 
record  in    the   following  format: 

54    SYC    1     176     U      78 

Elster,    R   S 

Summary   of    the    conferaace 

Marine    Corps    and   Navy    Man    and    Wo man- Power: 
Requirements   and    Considerations,    Leessurg,    7a.,    Mar. 

IN    ?52S-'    Washington,    D.    C.  ,    Smithsonian    Inst., 
1978,     p.     16. 

When   printing  the   final    copy    use  1010   on    the   job  card   to  specify 
upper  and  lower  case   output.       See    detailed  examples   in   Section   IVB. 

A   modification   of  the   LIST  program  to   cause   it    to  begin   a  new  page 
each    time   a  new  author  ID  is  encountered  is  explained  on    the    listing. 


GETSQRT 

Purpose — This  program  is    used   to  extract  selected   files   from  a   master 
tape,    merge   them,   and  sort   the   resulting  file   as   specified. 

Description  —  The  program  listing  shown   selects   files    11,    12,    and  13 
from  tape   LIB202   and  merges    them     into  a  single    file. 
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The  output  from  this  program  is  put  in   file   1   on    tape   LIB999 .      It 
can  be  printed  from  there    using  the   LIST  program     with   the   correct  JCL . 

As  with   the  programs   LIST,    BOOK,    and  GETBOOK ,    this  program  operates 
on   files  which  have  been  processed  by   LIBTAPE . 

BOOK 

Purpose — The  BOOK  program  prints    the  publication  entitled  "Recent 
MPS  Publications ."      It   requires  an  input   tape   containing  the  proper 
information   already   sorted.      The  program  GETBOOK  prepares    the   input   tape 

Description — The   listing  shown  assumes   that   the   input   file   is 
available   as   record  1    on    tape   LIB999  . 

The   document  printed  by    the   BOOK  program  is   divided  into    four  main 
categories  each   containing  several   publication   codes   as  shown  below. 

a.  Contributions    to   books 

i)  bk 

ii)  TBK 

Hi)  CHB 

iv)  SYE 

b.  Conference   presentations 

i)     PRC 
ii)      PRI 

c .  Journal   publications    and   conference   proceedings 

i)  PP 

ii)  PI 

Hi)  SYC 

i  v)  SYI 

v)  ABC 

vi)  ABI 
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Technical  reports  and  notes 

i)    RPT 

ii)    TN 

Within    these   categories    (a,   h,    c,    d)    the   records   must   be   sorted 
by   deparmant   code.      Any    further  sorting  is   optional .       (The   listing 
shown    for  GETBOOK  also   sorts   alphabetically  by   author   and  by   year.) 

The  BOOK  program  prints   the   contents   of  the   specified  file   in 
a   format  suitable   for  immediate   reproduction  .      It  begins   a  new  page 
each    time   a  new  department   code  is  encountered  and  it  puts   a  new  page 
header  each   time   a  new  category   of  publication    (as   defined   under  a,   b, 
c,   and  d  above)    occurs.      The  pages   are   labelled  with   the  name   of  the 
department   providing  it   is   one   of  the   academic  departments   52,    53,    54, 
55,    56,    61,   62,    63,    64,    67,   6  8   or  69 .      Other  department   codes,    such 
as   012,    will   appear  on   separate   pages  with  no   department   heading  printed. 

When  printing  the  final    copy   use   1010   on    the   job   card  to  specify 
upper  and  lower  case   output. 


GETBOOK 

Purpose  —  This  program  will   extract  specified  records   from  the    files 
and  sort   them  in  preparation   for   using   the   BOOK  program. 

Description  —  The  program  shown   will   examine   records   from  tape   LI3202 
in   files   11,    12   and  13.      It  will   extract   records   and  put   them  in    groups 
as   defined  by   the   data   cards.      In    this    case    there    are   4   groups,    4    types 
of  publications   in    the   first    group,   namely   those  with  publication   codes, 
BK,    TBK,    CHB,    and  SYE .      There   are   6   in    the  next    group,    etc. 

As  each   record  is   read,    the  program  determines   if  it  belongs  in 
group  a,   b,    c,    d  or  none   of  these.      if  none,    the   record  is  bypassed. 
Otherwise    the  publication    code   is   changed  to  A,    B,    C  or  D.      The    records 
are    then   sorted  as   required  by    the   BOOK  program  and    written   on    the    tape 
LIB999    as    file  number  1.        The   contents   of   tape   LIB202   are   not  altered. 
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D.   Special  Variables  Used  in  the  APL  Programs 

This  section  describes  several  special  variables  used 
in  the  APL  programs.   Included  is  a  description  of  the  use 
of  each  variable  and  a  print  out  of  its  value. 

FIM 

This  variable  is  used  as  an  index  to  the  data  fields. 
It  shows  the  starting  location  (minus  one)  for  each  field 
and  the  field  length. 


73   10  3   133   163 
30    30    30    30 


0 

3 

u 

5 

8 

9 

12 

13 

43 

223 
3 

253 
1 

493 
1 

3 

1 

3 

1 

30 

30 

30 

240 

243 

PCM 

This  variable  is  a  list  of  the  APL  characters  corre- 
sponding to  the  three  character  publication  codes. 

i' 

*p  n 
*p  1 

r+n 

rti 

D~p 

~T 

** 

*l 

31(1 

an 
n  Ai 

P*P 
p*~ 

*a~ 
p  e  u 

~P 
~Ae 
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PCV 

This  variable  is  also  used  in  assigning  the  publication 
code.  It  contains  a  list  of  the  APL  characters  corresponding 
to  the  single  character  publication  codes. 

ainte_VAi°  'G!"ro*?pr~+u 


SECV 

The  APL  characters  corresponding  to  the  four  acceptable 
security  codes  are  stored  in  this  variable. 


LCV 

This  variable  holds  the  APL  character  corresponding 
to  the  lower  case  values  for  each  character  of  the  alphabet 
It  is  used  in  the  function  NAMECHG. 

ABCDEFGHIJKLMUOPQRSTUVWXYZ 
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ucv 

This   variable   holds    the   upper  case   value    for  each 
character  of   the   alphabet.      It   is    also   used  in   the    function 
NAMECHG. 

ainLe_VAi«,aiTO*?pr~+uaj3tc  +  >,. 


AA 

This  variable  holds  the  faculty  directory.   See  the  next 
section. 


NFAC 

This  is  the  number  of  entries  in  the  faculty  directory  AA 
Each  entry  occupies  20  positions  in  AA.   The  variable  NFAC  is 
used  in  the  programs  ADDFAC,  FIXFAC  and  SEEFAC. 
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E.   Faculty  Directory 

The  current  faculty  directory  is  shown  below.   It 
is  stored  as  the  APL  variable  AA.   The  format  is: 

FIDNAME ADC 

where 

FID  =  faculty  ID 

(3  characters,  right  justified) 

NAME ...  =  name 

(14  characters,  left  justified) 

ADC  =  academic  department  code 

(3  characters,  right  justified). 

The  faculty  ID  and  the  academic  department  code  are  right 
justified  to  match  the  contents  of  fields  4  and  1  in  the  records 
The  directory  below  has  been  retyped  for  readability 

with  a  different  spacing  than  that  actually  contained  in  the 
variable  AA. 


27 


FACULTY    DIRECTORY 


137 

Tolles,  W  M 

12 

92 

Andrus,  A  F 

55 

15 

Barr,  D  R 

55 

135 

Johnson,  J  R 

35 

47 

Brown,  G  G 

55 

94 

Butterworth,  R 

55 

46 

Barksdale,  G  L 

52 

125 

Esary,  J  D 

55 

91 

Bradley,  G  H 

52 

95 

Forrest,  R  N 

55 

181 

Burkhead,  F 

52 

96 

Gaver,  D  P 

55 

191 

Hamming,  R  W 

52 

97 

Hartman ,  J  K 

55 

51 

Kodres ,  U  R 

52 

98 

Howard,  G  T 

55 

138 

Matula,  D  W 

52 

126 

Jacobs ,  P  A 

55 

52 

Raetz,  G  M 

52 

1 

Larson,  H  J 

55 

48 

Rahe,  G  A 

52 

2 

Lewis ,  P  A  W 

55 

49 

Roland,  R  J 

52 

127 

Lindsay,  G  F 

55 

180 

Schell,  R  R 

52 

3 

Marshall,  K  T 

55 

50 

Schneidewind, 

52 

4 

Milch,  P  R 

55 

5 

Neil,  D  E 

55 

53 

Corns took,  C 

53 

6 

Parry,  S  H 

55 

54 

Davis ,  D  L 

53 

128 

Pilnick,  S  E 

55 

55 

Franke,  R  H 

53 

7 

Poock,  G  K 

55 

172 

Jayachandran , 

53 

8 

Raike,  W  M 

55 

132 

Kildall,  G  A 

53 

154 

Read,  R  R 

55 

173 

Kovach ,  D 

53 

9 

Richards,  F  R 

55 

192 

Marks ,  H  B 

53 

10 

Shubert,  B  0 

55 

56 

Russak,  I  B 

53 

11 

Shudde,  R  H 

55 

57 

Schoenstadt,  A 

53 

12 

Sovereign,  M  G 

55 

59 

Trahan,  D  H 

53 

13 

Taylor,  J  G 

55 

187 

Wang,  P  C  C 

53 

14 

Thomas ,  M  U 

55 

58 

Weir,  M  D 

53 

130 

Tysver,  J  B 

55 

60 

Wilde,  C  0 

53 

155 

Washburn,  A  R 

55 

131 

Zehna,  P  W 

55 

20 

Arima,  J  K 

54 

156 

Creighton,  J  W 

54 

193 

Burke,  D  P 

56 

21 

Derr,  C  B 

54 

29 

Daniel,  D  C 

56 

176 

Elster,  R  S 

54 

27 

Magnus ,  R  H 

56 

41 

Eoyang,  C  K 

54 

194 

Schutz  B  M 

56 

16 

Fremgen ,  J  M 

54 

195 

Sherwin,  B  M 

56 

22 

Giaugue,  W  C 

54 

204 

Stolfi,  R  H 

56 

23 

Haga,  W  J 

54 

28 

Valenta,  J 

56 

24 

Jones,  C  R 

54 

17 

Judson ,  R  R 

54 

203 

Buskirk,  F  R 

61 

18 

Kline,  M  R 

54 

164 

Cooper,  A  W 

61 

129 

Lanson 

54 

190 

Cooper,  J  N 

61 

123 

Liao,  S  S 

54 

99 

Coppens ,  A  B 

61 

121 

McMasters,  A  W 

54 

10  7 

Crittenden,  E 

61 

122 

Paringer,  L 

54 

100 

Fairall,  C  W 

61 

25 

Senger,  J  D 

54 

101 

Harrison,  D  E 

61 

26 

Weitzman,  R  A 

54 

165 

Kelly,  R  L 

61 

19 

Whipple,  D  R 

54 

136 

Kinney,  G  F 

61 

124 

Wright,  C  A 

54 

167 

Medwin,  H 

61 
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166 

Milne,  E  A 

61 

177 

Moose,  P  H 

61 

102 

Novarini,  J 

C 

61 

163 

Pitthan,  R 

61 

169 

Reese,  W 

61 

103 

Reinhardt,  R  A 

61 

170 

Rodeback,  G 

w 

61 

104 

Sanders,  J  V 

61 

105 

Schacher,  G 

E 

61 

168 

Schwirzke,  F  R 

61 

106 

Wilson,  0  B 

61 

148 

Adler,  R  W 

62 

157 

Baycura,  0  M 

62 

36 

Burton ,  R  W 

62 

147 

Chan,  S  G 

62 

43 

Duffin,  J  H 

62 

146 

Gerba,  J  A 

62 

37 

Hoisington, 

D 

62 

133 

Holl,  S  T 

62 

38 

Kirk,  D  E 

62 

44 

Knorr,  J  B 

62 

158 

Myers,  G  A 

62 

39 

Ohlson,  J  E 

62 

45 

Panholzer,  R 

62 

40 

Parker,  S  R 

62 

30 

Powers ,  J  P 

62 

48 

Rahe 

62 

145 

Rothauge,  C 

H 

62 

31 

Sackman,  G  L 

62 

32 

Stentz,  D  A 

62 

33 

Strum,  R  D 

62 

42 

Tao,  T  F 

62 

34 

Thaler,  G  J 

62 

35 

Titus,  H  A 

62 

159 

Wilcox,  M  L 

62 

185 

Wozencraf t, 

J 

62 

73 

Chang  C  P 

63 

74 

Davidson,  K 

L 

63 

75 

Elsberry,  T 

L 

63 

76 

Haltiner,  G 

J 

63 

77 

Haney,  R  L 

63 

199 

Lau,  K  M  W 

63 

78 

Renard,  R  J 

63 

179 

Van  Der  Bij] 

- 1 

63 

79 

Williams,  R 

T 

63 

189 

Blandin,  J  S 

64 

93 

Blandin,  S  W 

64 

142 

Boynton,  R  E 

64 

161 

Brennan,  J  P 

64 

162 

Doran,  E  J 

64 

141 

Frederiksen,  P 

64 

140 

Plotkin,  N 

64 

109 

Pluta,  J  E 

64 

110 

Rittenoure ,  R 

64 

183 

Saunders,  R  E 

64 

134 

Sohlberg 

64 

184 

Whitney,  G  A 

64 

186 

Young,  R  D 

64 

111 

Ball,  R  E 

67 

150 

Bank 

67 

112 

Biblarz,  0 

67 

151 

Gawain,  T  H 

67 

152 

Kahr,  C  H 

67 

113 

Lay ton,  D  M 

67 

114 

Lindsey,  G  H 

67 

115 

Miller,  J  A 

67 

116 

Netzer,  D  W 

67 

117 

Platzer,  M  F 

67 

149 

Schmidt,  L  V 

67 

118 

Shreeve .  R  P 

67 

119 

Simmons,  J  M 

67 

153 

Zucker,  R  D 

67 

65 

Andrews ,  R  S 

68 

61 

Bourke ,  R  H 

68 

182 

Chace ,  A  B 

68 

66 

Denner,  W  W 

68 

67 

Garwood,  R  W 

68 

62 

Haderlie,  E  C 

68 

68 

Jung  G  H 

68 

69 

Leipper,  D  F 

68 

63 

Paquette,  R  G 

68 

70 

Thompson,  W  C 

68 

71 

Thornton,  E  B 

68 

64 

Traganza,  E  D 

68 

143 

Tucker,  S  P 

68 

144 

Von  Schwind,  J 

68 

72 

Wickham,  J  B 

68 
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160 

Boone,  D  H 

69 

86 

Brock,  J  E 

69 

171 

Can tin,  G 

69 

200 

Cooper,  T  E 

69 

80 

Funs,  A  E 

69 

139 

Garrison,  C 

J 

69 

81 

Houlihan,  T 

M 

69 

87 

Kelleher,  M 

D 

69 

88 

Mar to,  P  J 

69 

82 

McNelley,  T 

R 

69 

89 

Newton,  R  E 

69 

201 

Nguyen,  D  H 

69 

83 

Nunn,  R  H 

69 

84 

Perkins,  A  J 

69 

178 

Salinas,  D 

69 

90 

Sarpkaya,  T 

69 

85 

Vanderplaats 

i 

69 

Faculty  with  joint  appointments 

91  Bradley,  G  H  55 

4  7  Brown,  G  G  5  2 

156  Creighton,  J  W  55 

120  Elster,  R  S  55 

50  Schneidewind,  54 

137  Tolles,  W  M  61 

187  Wang  P  C  C  56 


Faculty  with    joint  appoint- 
ments  will   be    listed   in    the 
directory    for   each    department,    bu 
they  will   have    the    same  ID  number 
for  each   listing    so    that  sorting 
by    faculty   ID  number  will   put 
all    the   citations    for   that   faculty 
member    toaether. 
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F.   The  Input  Terminal 

If  the  IBM  2741  terminal  is  used  for  the  input  or 
correction  of  records,  a  modification  is  required  in  the  APL 
programs  INPUT,  CORRECT  and  DISPLAY.   It  is  necesary  to  trans- 
late the  record  before  it  is  written  into  the  file  and  to  trans' 
late  it  back  whenever  it  is  read  at  the  terminal.   Two  very 
brief  APL  programs  are  available  for  this  purpose.   They  are 

1.  TRANS41AJ,  used  when  writing  from  the  2  741. 

2.  TRANSAJ41,  used  when  reading  at  the  2741. 

These  two  programs  must  be  used  if  the  correct  character  set 
is  to  be  obtained. 

Any  ASCII  data  terminal  can  be  used  with  the  programs 
as  described  in  this  report.   If  there  is  any  doubt  a  dummy 
record  containing  all  the  upper  and  lower  case  letters ,  the 
numbers  and  all  special  characters  needed  should  be  input. 
It  should  then  be  written  on  tape  using  the  LIBTAPE  program 
and  printed  using  LIST  to  complete  the  test. 
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IV.   DETAILED  OPERATING  INSTRUCTIONS  (USER'S  GUIDE) 
A.   The  Input  Process 
1.   Signing  on  to  CMS 

The  best  source  of  this  information  is  the  NPS  user's 
guide.   The  brief  information  here  is  for  completeness  only. 

a)  Turn  on  the  terminal 

b)  Establish  communication.   If  by  phone,  dial  3025  and  attach 
the  receiver  to  the  acoustic  coupler. 

c)  Type  break    or  attention  ■ 

d)  Type   LA1182pYY 

where 

XXXX  =  user  number 

YY  =  terminal  number 

A  =  space 

e)  Type   AAAABBBB 

where 

AAAA  =  project  number     (use  0525) 

BBBB  =  cost  code         (use  1423) 

In  addition  to  its  responses  between  the  above  steps, 
the  terminal  will  end  this  sequence  with  a  message  indicating 
that  CMS  has  been  entered.   To  confirm  this,  a  carriage  return 
can  be  typed  and  the  response  should  be  "cms." 

At  this  point  the   s   (status)  and   1   (list)  commands 
can  be  issued  to  see  how  much  disk  space  is  available  and  what 
files  currently  exist.   Other  CMS  commands  can  also  be  executed 
at  this  time.   (Do  not  EDIT  the  files.) 
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2.   Entering  APL 

a)  When  in  CMS,  type  apl    then  a  carriage  return.   The  system 
should  respond  with: 

A*P*L\N*P*S 

LIBRARY    DOCUMENTATION    SYSTEM. . . *LOAD. . .     . 

If   any   symbol   other    than      *      appears   before   LOAD,    type    that 
symbol    followed  by  off  oms .       This    should   return    the    user 
to   CMS.      Repeat    Step    2. 

b)  If  APL  has   been   entered   successfully,    the    type   element 
should  move   over    7   spaces   before    coming    to    rest.      To 
confirm  that   the    user   is    in   APL   he    can  hit  a    carriage 
return    and   the    type    element   should   again   move    over    7    spaces. 

c)  Before  the  programs  described  in  this  document  can  be  used, 
the  work  space  called  tt  must  be  loaded.  This  is  done  by 
typing    *    load    tt . 

d)  The    user   can   now    type    INPUT   or   CORRECT   or    DISPLAY    as    desired, 
These   program  are    self-explantory .      After  exiting   from 

any   of   these   programs    (into  APL) ,    the   user   can    re-enter 
any  of    them  by    typing    the    appropriate   program  name. 

e)  After   loading   the   work    space  TT       (step    c)     the   directory 
maintenance    programs    ADDFAC ,    FIXFAC   or   SEEFAC    can   be    used. 
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3.   Signing  Off  or  Returning  to  CMS 

a)  To  sign  off  (from  APL)  type  *  off.      Wait  until  the  terminal 
responds  then  turn  it  off  and  hang  up  the  phone. 

b)  If  the  user  wishes  to  return  to  CMS  (from  APL)  he  should 
type  *  off   oms .      After  the  terminal  responds,  the  user 
may  wish  to  confirm  that  CMS  has  been  entered.   The  CMS 
commands  can  be  issued,  APL  can  be  re-entered,  or  the  user 
can  sign  off  by  typing  op    log. 

c)  One  other  environment  might  be  entered  inadvertently, 
namely  CP.   If  a  carriage  return  produces  the  response 
op  ,    the  user  should  type  i    oms    to  re-enter  CMS. 


34 


B.   Printing  Reports  (including  examples) 

Once  a  master  tape   (LIBTAPE  version)  of  the  files 
has  been  constructed,  sorting  the  files  and  printing  final 
copies  of  the  output  is  a  fairly  straightforward  process. 

This  section  will  assume  the  existence  of  a  master 
tape  LIB202  whose  contents  are  as  shown  in  Figure  IV. 1. 
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FILE 

Tape  LIB202 

1 

LIBTAPE 
EOF 

2 

TT 
EOF 

o 
o 

3 

I  CHAR 

i 

EOF 

en 

4 

I  PACK 

EOF 

5 

SDAPRE76 
EOF 

6 

SDAALL76 

EOF 

!> 

7 

SDAALL77 
EOF 

en 
M 

8 
9 

SDAALL78 
EOF 

SDAALL79 

*1 

H 

It4 
H 
en 

EOF 

10 

SDAPRE76 
EOF 

H 

11 
12 

SDAALL76 
EOF 

SDAALL7  7 

to 

>  > 

en  ^ 

i-3  W 
M 

EOF 

*S 

13 

SDAALL78 

*3  » 
h  en 
tr1  h 
M  O 
en  2 

EOF 

14 

SDAALL79 

O 

EOF 

*d 

VVvVVVNAAAA^NNvJ 


Comments 

-Text  version  of  LIBTAPE  procra 
-End  of  file  mark 

-The  APL  workspace  TT 


-Text  version  of  ICHAR 


-Text  version  of  IPACK 


-All  pre  76  records,  sorted  by 
department  and  alphabetically 
by  first  author  (175  records) 

-All  76  records,  sorted  (5  37  re 


-All  77  records,  sorted  (4  76  re 


-All  78  records,  sorted  (614  re 


-All  79  records,  sorted  (3  reco 


•These  are  LIBTAPE  versions 
of  the  master  records  ready 
for  sorting  and/or  printing 


Figure  IV. 1 
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1 .   Example  1. 

To  print  (the  LIBTAPE  version  of)  the  files  contained 
on  tape  LIB202,  the  following  steps  are  required. 

a)  Be  sure  that  the  tape  is  available  to  the  computer  center 
If  it  is  stored  there,  it  is  available.   If  it  is  stored 
in  the  library,  it  can  be  delivered  over  the  counter  in 
the  computer  center. 

b)  Submit  the  LIST  program  through  the  card  reader  in  the 
computer  center. 

i)   The  job  card  should  have  the  following  form 
/-EXAMPLE i  JOB  Ci 182 j 0525? 1423* j20> t  i0i0>? ' HELLO' >TIME=4 


0 

I  2  3  < 

1  1 

2222 
3  333 
4444 
5  5  5 
65B3 
777 
83  3  8 
9990 

II  M 


0000  0  0  0  0 

1  I  i  II  II  I!  I]  14 

111  1  11 

2222222 

3  33  33  3  3 

4  4  4  4  4  4  4  4 

5  5  5  5  5  5  5 
GG  666  6  G 

7777777 
333G3  3G8 
99999939 

I   I  !  It  H  12  :l  i; 
DOS-  15299 


0  0  30 
;;  ii  !i  :j  ;i 

1  1  1 

222  2 
3333 

4  4  4  4  4 

5  5  5  5  5 
a  G66  6 
7777  7 
3  8     3 

9  993  9 

■    I  IS  .3  21 


00 

22  73  .'4 
1    1    1 

22 
3  3  3 
44  4 
5     5 


G     0 
::  :•  :i 

1  1 
222 

3  3 

4  I  4 


000 

!i  ii  21  si 

1111 

2  22 

3  3 

444 
5  55  5 


0 

3!  31  U  K 

MM 
2     22 

3  3 

4  4  4  -'! 

5  55  5 


0  0  0  0  0  0  0  0  0  0   000000300000300000  ?  J 

:;  v  :s  ii  u  i\  <!  n  u  n  is  <i  n  <i  i\  si  u  sa  :i  55  ;s  :i  si  n  n  v.  52  a  si  a  :i .'  a  a  :  1 

1      1     11  M  1  I  M  1  1  M  M  11  11  11  M  11  11  11  M  11 


]  J 


S<?-'A\  1P>-     - 


2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2(5^^^  2  2  2 
3  3  3  3  3     3  3  3        3  3       3  3  3  3  3  3  3^^Mm;-V-  >  J 
44444444444444444     4  4     4  4     \   \\  A 


5  5  5  5     5  5  3  5<  )  3 


2  2:2 


99  3 

72  33  31 


•j  j  9 

!J  :3  7) 


9  9  99 
:i  73  ;i  31 


3  099 

32  33  34  31 


9  9  3  9  9  9  9  9  9  9  9  9  9  9  9  9     9  9  9  9  3  3  9  5  9  9  9  9  9  9  9  3  9  3  3 

j«  3)  33  33  >i  (I  IJ  13  U  IS  li  II  II  I!  :l  51  !3  :3  \t  IS  ;j  :.     i  >i  i]  S!  63    3  '!  i)  ii  ii  (3  ..    I 


030C 

•:  'l  !S  ' 

MM 

2222 

3  33  3 

4  ;;  4 
j  :  3  S 
G  G6G 
7777 

5  3  3  3 
MM 

1:3: 


033 

!  i  II 

1 1  i 

222 
3  3  3 
44  4 

5  5  5 


1  1  7 

3  S  i 

p-  9  9 

■  3  1! 


The  interpretation  of  this  card  is 
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EXAMPLE1  =  user  selected  name  (title  on  printout) 

JOB     =  identifies  "job"  card 

1182     =  user  number 

0525     =  project  number 

142  3     =  mail  code 

20      =  this  calls  for  a  maximum  of  20  thousand  lines 
of  output.   If  this  is  too  small,  the  job 
will  not  finish  printing.   This  estimate  is 
generous  for  this  job. 

1010     =  this  calls  for  overnight  printing  with  the  TN 
chain  (upper  and  lower  case) .   The  job  will 
not  be  available  until  the  next  morning.   The 
job  will  be  available  behind  the  counter 
in  the  computer  center.   This  field  can  be 
deleted  to  get  an  "immediate"  print  out  with 
upper  case  only. 

Hello   =  user  selected  identification,  to  appear  on 
printout. 

Time  4   =  estimate  of  time  required  in  minutes.   Four 
is  a  generous  estimate . 


i)   The  JCL  cards  should  have  the  following  form.   These 

15  cards  will  replace  the  first  9  JCL  cards  shown 
in  the  program  listing. 
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FIRST    CARD 

//GD.  FT03F001    DD  D ISP* <QLD> KEEP)  jUMIT=»3400-4jDSN=ABD< 
*v  DCB=  <  PECFM  =FB  >  LRECL=3  0  0  •  ELKS  I  ZE=2  n  n «  DR}--1  ) * 
//       ■LABEL=<10jNL.«  >  IN)?VaL=<5RETAIH>SE£=LIB£0£> 

DD  DISP=<DLBjKEEP)jUNIT=AFF=FTn3Fn0I>DSH=ADD* 
'/   DCB= < RECFi'1=F  B  »  LRECL=S  0  0  j  ELKS  I  ZE=8  0  0  <  DEN=£ )  ? 

</  •  ■  LABEL=ai»NLi  j  IN) j vaL=<jRETAINjSER-LIE£Q£> 

DD   DISP=<DLDjKEEP)jUrUT=AFF=FTQ3F001»DSM=ADDi 
//  DCB=<RECFM=FBjLRECL=30i:i,  BLKSIZE=300,  DEH=£>  t 

//        LABEL=<12j ML* ' IN) ? VQL=< «  RETAIN? SER=LIB£0£> 

DD   D I  :.-P=  < DLD  j  KEEP ) «  UN  I  T=AFF=FT  03F  0  0  i  <  LS:  l=ADD  > 
//  BCB=KRECFM=FBjLRECL=300j BLKSIZE=8GQ> DEN-S) » 
//        LABELS!  3  jNLj > IH>jVDL=<5RETAIH>£ER=LIB£0£> 

DD   DISPa<DLD>KEEP) j (JNIT=AFF=FTOSFOOi j DSN=ADD» 
//  DCB=(RECFM=FBj LRECL=300j BLKSIZE-SQQj BEN-S) j 
//'       LABEL=»<14jHLj  >  IN>iVQL*<j RETAIN* SER^L IBS 02 > 


LAST   CARD 


0  0  0  0  C  0  0  C  0  0  0  0  0  0  0  0  0  0  C  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  C  0  0  0  3  0  0  0  0  0  0  0  0  0  0  0  0  0  C  0  C  3  0  0  0  0  c  c  0 

1  I  3  i  i  t  i  i  i  it  n  ii  i)  ii  's  it  i'  i  ii  !i  ii  ii ."'  :<  is  it  n  it  :i  ii  ii  ii  j  it  9  '■>  u  ■< :!  <i  <i  ''<  "  «  is  '•  "  •• '!  ■'  'i  •■'  '.i  i<  ■'  ■>  '>>  i  si  ■■-'  ti  ;■  <'■  h  :s  a  i  11  u  ; 

1  1  1  1  !  1  1  1  I  1  1  I  1  1  1  1  II  1  11  1  1  1  11  II  1  1  1  1  I  1  I  I  I  1  1  1  1  !  I  1  1!  1  1  I  1  1  1  1  !  I  1  1  1  1  I  I  I  II  II  1  I  1  i  I 

2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  ?  2  2  2  2  2  2  2  S'Y-'fj^S  2  2  ? 
2  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3:  <?<? 


O0O0OGCS3 

i    i  '«  :i  u        .    .  :j 

1  1    I    I    1    1    1    I   1 

2  2  2  2  2  2  2  2  2 

3  3  3  3  3  3  3  3  3 

■1  4  ;  4  4  4  '  ■:  4 

J      J     J      J     J       J        ,      o      J 

uGGGso-'ju 

mm  m 

3  8  3  3  3  S  8 3  8  3  3  3  8  8  3  3  3  3  3  8  8  8  8  ?  8  3  8  8  8  3  3  3  3  3  8  a  3  8  2  3  3  3  8  3  8  8  3  S  C  8  8  3  8  3  3  8  3  8     8  S 8  8  G  S  S  8  3  3 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4 


'V  V  ' 


5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  S  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  ;J  j        !.'.•-!       1  (  -• 

firV    *"  I   \X  \£, 
GG66S6G6G666GGG666GG66GG6SS66G6GG66GGG6G665G66GGGG5GCCGG6*-\  i^-7-i 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  n  7  7  7  7  7  77  7Yv'>  ^C>V  J  7  7 


9  9  S  9  9  9  9  9  9  9  9  3  3  9  9  9  9  9  9  3  3  3  3  9  9  9  3  9  3  3  3  3  9  9  3  1  3  9  9  9  9  9  9  9  9  9  9  2  9  9  9  5  G  3  9  3  9  9  9  9  3  G  9  S  3  S  9  5  3  2  9  3  3  G  3  0  G  3  9  3 
l  i  1  <  i  i  I  I  I  ii  n  ii  i)  ii  is  ii  ii  i  ii  u  ii  >:  ;i  ii  :i  ;•  ?i  n  ;i  ;i  ji  j;  jj  ;<  n  n  a  :t  i  <i  11  u  u  n  o  u  <i  n  o  :t  i;  j.  j>  sj  t)  ;j  u   i  u  si  ti  (1  ■'  :>  ii  u  nun  i      'i  u  m  r,  ;  :;   i   •  is 

0O>-  15  Z«* 
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iii)   The  data  cards  should  be 


FIRST  CARD 
5 


47*  bi4 


LAST  CARD 

0  0  0  0  C  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  3  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  3  0  0  0  0  0  0  0  0  0  0  0  0 
i  ;  14  s  ;  i  i  i  ii  ii  i2  ij  h  u  it  w  ii  is  :a  21  a  n  u  :; ;» 21  ;i  ;s  a  21  n  23  :<  a  is  11  :i  :s  a  <i  42  <i  14  45  *t  «  u  »  si  si  12  »  u  a  51  sj  si  a  a  ti  «  u  m  ss  a  si  ci ;?  n  :.  n  n 

1111111111111111111111111111111111111111111111111111111111111111111111111 
222222222222222222  22222222222222222222222222  2  2222222222222 
33333333333333333333  33333333333  333  333  3  33  3  3333  3333333333333 

4444444  444444444444444444444444444  4444444  44  44  4  44444444  4444 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5(J 

6  G  6  S  6  5  6  S  5  3  G  S  S  6  6  6  5  8  5  6  6  6  6  6  5  6  6  G  S  5  S  5  5  S  5  S  S  S  6  6  S  S  5  5  6  6  6  S  6  S  6  6  S  5  6  6  G  Kg\ 


77777777777  777777777  7777777777777777777777777  77777777777777 

88  8888  8  8  88  8  333  338388333  3  8  3  8  8  3  8  8  3  8  8  3  8  3  8  8  8  8  8  3  8  8  3  88888888888  3 3  8  838388383  3  3  3  3 

9  9  9  9  9  9  3  9  9  9  9  3  9  9  3  3  9  9  3  S  3  9  9  9  3  9  3  9  9  3  3  9  9  9  9  9  9  9  9  9  9  9  9  3  9  9  9  3  9  9  9  9  3  9  9  9  9  3  3  3  9  9  9  9  9  9  S  3  9  3  9  9  9 

I    2    J   4    S    8    1    I    !   II  II  12  !!  14  15  Ii  II  II  I!  21  21  «  22  24  22  21  21  21  23  31!  21  22  23  34  33  OS  31  2:  II  41  41  42  43  44  ii  4S  4)  41  43  is  SI  52  53  5'  55  5i  5)  '.I  5]  SO  SI  S2  '3  24  (5  SI  II  tl  S3  II  II  (2  12 
DOS-  1529? 


These  will  replace  the  two  data  cards  shown  in 
the  program  listing  for  LIST. 

The  final  /*  card  (orange  card)  is  not  shown 
on  the  listing.   It  should  be  added  before  sub- 
mitting the  job. 

The  job  setup  just  described  will  produce  a  printout  of 
the  files  10  through  14  from  tape  LIB202.   The  records  in  each 
file  will  be  numbered  sequentially. 

The  tap<a  LIB202  will  not  be  changed. 
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2.   Example  2 

This  example  assumes  that  the  user  v/ants  to  select  files 
11  (SDAALL76)  ,  12  (SDAALL77)  and  13  (SD/AALL78)  from  tape  LIB202, 
merge  them,  sort   them  according  to  department  code,  then  publi- 
cation code,  then  year  and  print  the  results  in  a  single  sequential 
listing. 

The  following  steps  are  required: 

a)  Be  sure  tape  LIB202  is  available  to  the  computer  center 
(see  Example  1)  . 

b)  Select  a  "scratch  tape"  and  make  it  available  to  the  computer 
center.   This  example  assumes  tape  LIB999  is  used. 

c)  Two  jobs  will  have  to  be  submitted,  separated  in  time.   The 
first  job  using  GETSORT  will  prepare  the  information  on 
tape  LIB999.   When  this  is  completed  (it  should  take  any- 
where from  a  few  minutes  to  an  hour  or  two  depending  on  how 
busy  the  computer  center  is),  the  second  job  using  LIST 
should  be  submitted. 

1.   USING  GETSORT  (refer  to  listing) 


i)       Job    card 
//EXAMPLES  JOE   <U32j  0525  j  i423>>-,HELLD"  >TIME=4 


0     G  0  0  0  0  0  0  0  0  0  0  0  0  3  0  0        0  0  0     0  0  0  0  0     0  0  0  0  0  0  0        0  0  0  G  0  0  0  3  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  j  ?  0  0  ']  0  0  3  fj 
i  1  !  <  S  i  7  !  I  is  ii  12  u  h  U  ti  il  i!  is  ::  ii  i:  n  :<  2s  :s  :p  :i  :i  :s  i:  ;i  :i  .<  15  :s  )i  it  :i  <t  n  <:  u  u  :s  ;s  a  is  <i  .-o  s:  »  si  -,«  a  :;  s:  :j  a  ;g  ti  a  n  ;<  ;s  ts  s:  u  .'.  :  i  u  .;:»■:  :j  :•   • 

11  11111!  1111   11111111  I  1  1  1  1  1  1  1  1  1  1  1 1  1  1  1  1 1 1  1  1  1  1  1  1  1  1  11  1  1  1  1  1  11  1  1  1 11  11  i  1  1  11  1  1  1  1  I 

2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  X^prfvs^  2  2  2  2 ' 2  2  °  ?  ' 

3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3   3  3   3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  J/^'l: :  x:  {     ■     ^  3  3  S  3  3  3  J  3  3  3 

4  4  4  4  4  4  4  4444444444444444444  44444444444444  44  444414441444  \    X\  A       :  4  4  4  4  4  4  -1  4  4 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  li  5  5  5  5  5  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  3  5  5  5:5551.'/]    ~\D<       ''  l) .  3  355  5  5  5 

;-"/  V-'  j  V\  -. 
G  G  3  G  S  E  G  G  G  B  6  :.  C  G  5  G  G  3  3  5  G  G  6  G  3  G  G  5  G  G  G  G  S  G  6  G  S  G  G  6  5  5  5  5  G  G  S  G  G  5  G  5  G  5  t:  J  3  S  5  :■  ( 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  "i  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  />  I>  ^L-  I  ';  /  7  7  7  7  7  7  7  7  7 


ii. 

8  3  8  S 3  S3  3  S  S  3  8  8  3  3  8  3  3  3  3  8  3  ?  3  8  3     2  3  3  8   8  8  8  i  8  3  5  8  8  8  3  8  S  8  8  8  S  3  3  8  8  3  !  3  3  S  3  3  S  8  3  i G  3  3  3  3  3  8 

9  3  9  'J  9  3  3  3  9  3  9  1  'J  9  3  '1  3  3  3  3  3  3  0  ^  3  9  3  3  3  J  9  0  5  9  5  !  ]  3  3  3  3     9  J  3  9  9  3  9  9  9  9  3  D  i  9  3  9  0  0  9  3  3  9  9  9  9  9  3  'I  !l  3  3  3  9  9  3 
I  J  1  »  5  I  1  l  !  '1  n  i;  ■]  ii  il  u  ii  ii  ii  :i  .i  .-;  .;  .<  ,i  .;    i  .i  :i  ii  ji  :,  n  :i  ,1  :,  u  u  i;  •!  .i  <;  u  d  is  n  11  n  n  it  si  ii  :i  i<  u  -i  ;:  .1  >i  n  11  •.  •■  -i  11  1,  , .      ,.  .       . 

DOS  -  1  i z «v 
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See  example  1  for  interpretation.   No  lengthy 
output  is  required,  no  printing  is  needed,  thus 
the  20  and  the  1010  have  been  deleted  from  the 
job  card. 

ii)  JCL 

The  JCL  cards  shown  on  the  GETSORT  listing 
already  point  to  files  11,  12,  and  13  (cards  24 
through  32)  on  tape  LIB202.   These  JCL  cards  are 
in  groups  of  3  and  other  groups  can  be  added  or 
some  of  these  can  be  removed  to  point  to  a  differ- 
ent file. 

The  third  card  from  the  end  in  the  GETSORT 
listing  points  the  output  to  file  1  on  tape 
LIB999.   It  is  correct  for  this  example. 

iii)   Sort  fields 

The    last    card   shown   should  be   changed   for   this 
example    to 

SDRT  FIELDS^ i > 3?BI ?Aj 4>  1  vBI .« A?  i0.« 3rEI 5 A> j SIZE=E3000 


oo    oo    oooooo    ooo    o    oo    o    o    o    oo    o    o      o    oo    oo      o    oooo       oooocooooooooooooo o o o o: 

'  i  i  «  »  I  »  i  !  ii  i!  u  ii  h  is  u  ni  i  :i  n  n  a  ;t  n  :s  n  :i  :i  u  ji  :?  ;i  u  :s  x  ji  u  )i  11 11  n  n  «  <s  a  n  11  <s  .:  si  .:  <i  .<  u  si  si  :i  si  ,1  ci  »  n  u  ss  13  u  <j  c  -j  -i  7  -j  n  ;jir 
M  11  11  1  11  1  M  Ml  111111  111  1111  1  1111111  11111111111111111111111111111111  II 

2  2  22222  2222  2  2  2.222  22222222  222222222  22222  22  2  2  2  2  2  2  2  2  2  2  2  2  2XJ5t^S^  22222222! 

3.13  33  3323  3  33  33  33  3  3  3  33  3  33  33  33  3323  33  3  3  3  3  3  3  3<^f^Gj^N  3  3  3  3  3|1 
44444444444  4444,44444^4  444444  4  444444444  4  44  4  4444444444444  j\i\  ?  !  <4  4  44< 
5  5  5  5  5  5  5  5  5  5555  5  f  5  5  5  5  5  S  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5555  5  5  5  5  5  5  5  5  5? )  1  r^  "i?  i  ?V  5  5  5  fl 
G  G  6  G  G  S  G  6  6  G  G  6  6  b  G  E  G  C  6  G  5  6  8  B  8  6  G  S  6  S  G  5  G  G  S  E  6  G  6  C  G  3  G  6  S  5  S  8  G  G  G  S  8  f^L   '  '   *   >)'^j  ;  5  5  0  Si 

7  7  7  7  7  7  7  17  7  7  7  7  7  7  7:77777777777777777777777777777777777777777  nA^S^S  /'  /  777777; 

8  3  8  S  3  3  3  8  3  3  3  3  3   8  3  3  8  8  3  8  8  3  3  3  8  S  8  3  6   3  3  8  8  3  8  8  433883888333888385833881! 

9  3  3  3  9  3  9  9  3  9  9  9  9  9  I  3  9  0  3  9  9  9  3  9  3  9  9  9  9  9  9  9  9  3  3  3  9  9  3  3  9  M  q  3  n  9  ■]  19  9  9  Q  9  *  9  9  9  9  1  1  1  <l  "  1M3' 
.  z  j«  1  1  ^  ;"";  ■:«.»  -ii  ■•  n  »  »  «  :i  :<  a  «  11 »  »  M  ;■  »  »  M  »  »  »  ^  11 «  ,,  .1 0  <i  «  «  «  «■ ..  »  »  »  f,  w  a  a  ]  II I ,,  ,,-,',,2....:-.  =      !  '," .: 
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The  final  /*  card  (orange  card)  is  not 
shown  in  the  listing.   It  should  be  put  on  the 
end  of  the  deck  before  submitting. 

The  output  received  from  this  job  will  include  a  brief 
statement  indicating  that  162  7  records  were  processed. 

2.   USING  LIST 

i)   Job  card  (see  Example  1) 

10  (thousand)  lines  of  output  should  be  adequate 
1010  should  be  used  on  the  job  card  to  get  the 

upper  and  lower  case  output 
time  =  4  is  sufficient 

ii)   JCL  (see  Example  1) 

The  input  file  is  now  on  tape  LIB999  in  file 
number  1.   Modify  the  JCL  in  LIST  accordingly. 

iii)   The  data  cards  in  LIST  should  indicate  1  file, 
1627  records. 

The  /*  card  (orange  card)  completes  the  deck. 
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C.   File  Management 

The  FACPUB  system  can  be  viewed  as  having  three  major 
divisions : 

1.  The  input  process  consisting  of  terminal  sessions  using 
the  programs  INPUT,  CORRECT,  DISPLAY. 

2.  The  file  management  process  consisting  of  transferring  the 
disk  files  to  tape. 

3.  The  output  process  consisting  of  using  LIST,  GETSORT  (and 
annually,  GETBOOK  and  BOOK)  . 

The  first  and  the  third  of  these  have  been  described  in 
detail  already,  but  nothing  has  been  said  about  the  second.   This 
section  will  deal  exclusively  with  file  management  and  will  pro- 
vide a  complete  plan  for  the  near  term.   The  user  should  attempt 
to  familiarize  himself  with  the  problems  involved  and  not  merely 
follow  thse  suggestions  blindly. 

Several  general  issues  will  be  addressed  before  a  detaile 
discussion  of  "how  to  do  it"  is  undertaken  in  Section  D.   These 
issues  are 

i)   record  keeping  (knowing  what  files  are  available  and 
where  they  are) 

ii)   file  protection  (against  loss) 

iii)   updating  and  correction  of  files 

iv)   recommended  file  storage. 
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i)   Record  Keeping 

Anyone  experienced  with  computer  use  is  aware  of  the 
difficulty  of  keeping  track  of  exactly  what  files  he  has  and  what 
is  in  them,  particularly  if  they  are  not  used  frequently. 

In  the  FACPUB  system  the  permanent  records  are  stored  on 
tape  and  often  the  user  will  find  himself  with  several  similar 
versions  of  a  file.   For  example  one  may  be  sorted  one  way, 
another  sorted  another  way.   It  is  imperative  that  accurate  and 
up-to-date  records  be  kept  regarding  the  file  contents  and  loca- 
tion.  Each  tape  used  in  the  FACPUB  system  should  be  catalogued 
and  its  "index"  (a  written  record)  updated  everytime  it  is  used. 


ii)   File  Protection 

Considerable  effort  is  involved  in  constructing  and 
correcting  a  large  file  and  care  must  be  taken  to  be  sure  that 
no  files  are  lost. 

Files  on  the  disk  are  subject  to  loss  in  the  event  of 
disk  failure  or  inadvertant  erasure.   It  is  wise  to  provide  back- 
up protection  against  loss  by  occasionally  writing  new  files  on- 
to tape.   This  can  easily  be  overdone,  but  perhaps  each  time 
one  hundred  records  are  entered  they  should  be  backed  up  with 
a  tape  copy.   A  single  scratch  tape  can  be  used  for  this  purpose 
and  overwritten  with  a  new  copy  of  the  files  each  time  it  is 
used. 

Files  which  have  been  corrected  and  stored  on  tape  for 
permanent  retention  should  also  be  duplicated  to  prevent  loss. 
This  duplication  must  be  done  carefully  to  prevent  losing  the 
master  copy  in  the  process.   The  user  should  always  be  in  a 
position  where  his  files  can  be  recovered  if  he  loses  all  copies 
currently  in  use.   That  is, during  a  session  at  the  terminal 
the  user  may  have  a  tape  mounted  which  contains  valuable  files 
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from  which  he  intends  to  make  a  copy.   He  may  also  have  these 

files  on  the  disk,  but  he  should  be  aware  of  the  possibility 

of  losing  both  copies  because  of  equipment  failure  or  user  error, 

Another  caution  which  deserves  emphasis  in  the  FACPUB 
system  is  the  distinction  between  the  master  copies  of  the 
files  and  the  LIBTAPE  copies.   The  master  copy  is  the  one  con- 
structed by  INPUT  and  CORRECT  but  is  not  the  one  used  to  print 
output.   The  LIBTAPE  version  is  used  for  that  purpose.   The 
LIBTAPE  version  can  always  be  reconstructed  from  the  master  but 
not  vice  versa. 


iii)   Updating  and  Correction 

In  the  FACPUB  system  the  decision  has  been  made  to 
store  records  in  files  according  to  the  year  of  publication. 
(See  the  contents  of  tape  LI3202  for  example  in  Section  IVB.) 
It  also  seems  convenient  to  have  these  records  sorted  in  some 
order  and  they  are  arranged  by  Department  Code  and  then 
alphabetically  by  first  author.   These  are  viewed  as  the  master 
files  and  a  print-out  of  the  LIBTAPE  version  should  always  be 
available  in  the  library.   As  errors  are  discovered  in  these 
files  they  should  be  noted  on  the  master  copy.   They  can  all  be 
corrected  in  a  single  session  when  the  decision  is  made  to  do 
so.   The  sequence  number  in  the  master  copy  corresponds  to  the 
number  in  the  file  so  that  the  CORRECT  program  can  access  the 
proper  records.   When  the  user  plans  to  correct  all  errors, 
say  in  the  file  SDAALL77,  he  can  load  the  master  copy  from 
the  tape  back  to  the  disk  and  correct  as  usual.    The  difficulty 
comes  in  rewriting  the  master  copy  back  to  tape.   It  is  not 
safe  to  rewrite  the  file  back  on  the  same  tape  in  the  same  file 
simply  because  the  tape  may  not  be  positioned  precisely  and 
the  following  files  might  be  destroyed.   This  can  be  overcome 
if  the  following  files  are  also  loaded  on  the  disk  and  rewritten 
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on  the  tape  following  the  one  corrected.   The  difficulty  is 
that  the  disk  may  not  be  large  enough  to  hold  all  the  required 
files.   If  not,  temporary  disk  space  can  be  used  unless  it  too 
is  inadequate. 

The  procedure  for  adding  records  to  an  existing  file 
on  the  tape  can  be  handled  as  just  described.   The  addition 
would  be  available  on  the  disk  (filed  by  year)  and  would  be 
merged  (using  the  COMBINE  command)  with  the  file  loaded  from 
the  tape.   Then  the  merged  file  would  be  sorted  and  replaced 
onto  the  tape,  again  remembering  that  this  will  potentially 
destroy  the  following  files.   Another  caution  is  that  when 
the  merged  file  is  sorted  a  new  file,  which  also  occupies  disk 
space,  is  created.   Before  sorting  and  after  assuring  that  the 
COMBINE  command  was  executed  properly,  the  user  might  want  to 
erase  the  two  files  previously  combined  into  the  merged  file. 


iv)   Recommended  File  Storage 

As  mentioned  in  the  previous  section  the  decision  has 
been  made  to  store  the  files  by  year  (see  Section  IIIB  for  the 
contents  of  tape  LIB202) . 

It  is  recommended  that  the  same  system  be  continued  , 
but  it  is  also  suggested  that  the  number  of  master  files  on  a 
single  tape  not  exceed  3.   The  reason  for  this  comes  from  the 
difficulty  in  manipulating  too  many  records  even  with  temporary 
disk  space.   Currently  the  tape  LIB202  holds  five  master  files 
including  SDAPRE76  and  SDAALL79.   This  is  manageable  for  now 
because  the  pre76  file  is  relatively  small  (because  it  is  in- 
complete) and  the  79  file  has  only  three  records.   As  the 
pre76  file  grows,  it  is  recommended  that  the  structure  be 
changed  to  that  shown  below  in  Figure  IV. 2.   Notice  that  each 
tape  in  this  recommendation  includes  all  programs,  a  set  of 
master  files,  and  the  corresponding  LIBTAPE  versions. 
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TAPE  1 


ALL  PROGRAMS 
S DAP RE 7 6 
SDAPRE76 


Master  Version 
LIBTAPE  Version 


TAPE  2 


ALL  PROGRAMS 
SDAALL76 
SDAALL77 
SDAALL78 


Master  Version 
Master  Version 
Master  Version 


SDAALL76 
SDAALL77 
SDAALL78 


LIBTAPE  Version 
LIBTAPE  Version 
LIBTAPE  Version 


TAPE  3 


ALL  PROGRAMS 
SDAALL79 
SDAALL  80 
SDAALL  81 


Master  Version 
Master  Version 
Master  Version 


SDAALL  79 
SDAALL  80 
SDAALL  81 


LIBTAPE  Version 
LIBTAPE  Version 
LIBTAPE  Version 


TAPE  4 


AS  ABOVE 


Figure  IV. 2.   Recommended  Tape  Storage  Structure  for 

FACPUB  System. 
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The  exact  contents  of  each  tape  should  follow  the 
example  of  tape  LIB202  which  includes  EOF  (end  of  file)  marks 
between  each  file.   This  is  repeated  in  Figure  IV. 3. 


LIBTAPE 

EOF 
TT 

EOF 
I  CHAR 

EOF 
IPACK 

EOF 

YEAR1 

EOF 
YEAR2 

EOF 
YEAR  3 

EOF 

YEAR1 

EOF 
YEAR2 

EOF 
YEAR  3 

EOF 


PROGRAMS 


Master  Versions 


LIBTAPE  Versions 


Figure  IV. 3.   Recommended  Format  of  Master  Tapes 
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The  reason  for  including  the  programs  on  each  tape  is 
that  if  the  tape  contents  is  loaded  into  temporary  disk  space, 
all  the  programs  are  readily  available  for  use. 

The  reason  for  including  the  LIBTAPE  version  is  simply 
that  it  should  be  stored  somewhere  and  it  can  easily  be  printed 
to  determine  the  exact  contents  of  the  master  file. 

If  the  structure  recommended  above  is  used,  the  process 
of  correcting  and  updating  files  will  be  eased  because  it  should 
always  be  possible  to  accommodate  all  data  from  any  tape  in 
the  20  cylinders  of  temporary  disk  space  available. 

LIST  can  be  used  to  print  the  contents  of  any  LIBTAPE 
file.   The  programs  GETSORT  and  GETBOOK  may  sometimes  have  to 
use  JCL  referring  to  two  different  tapes,  but  the  description 
and  use  of  those  programs  is  unchanged.   The  JCL  must  be  changed 
slightly  when  the  input  comes  from  more  than  one  tape.   Suppose 
that  GETSORT  required  the  use  of  two  tapes,  say  LIB202  and 
LIB20  3.   Suppose  that  we  want  files  11  and  12  from  LIB20  2 
and  file  5  from  LIB20  3.   In  this  case  the  JCL  (see  Listing  of 
GETSORT)  would  be  changed  as  follows: 

LABEL=(12,NL,,IN) , VOL=SER=LIB202 
would  replace 

LABEL=(12,NL, , IN) ,VOL= ( ,RETAIN,SER=LIB20  2) 

and 

LABEL=(5,NL, ,IN) ,VOL=( , RETAIN , SER=LIB20 3) 

would  replace 

LABEL=(13,NL,,IN) , VOL= ( . RETAIN, SER=LIB 20 2) . 
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D.   File  Management  Examples 

The  following  topics  are  covered  in  this  section: 

1.  How  to  transfer  a  file  from  disk  to  tape  so  that  a  copy 
can  be  obtained  for  proofreading. 

2.  How  to  make  corrections  to  a  file  not  currently  on  the 
disk  when  the  10  cylinders  normally  available  are  adequate 

3.  How  to  make  corrections  to  a  file  not  currently  on  the 
disk  when  temporary  space  is  needed. 

4.  How  to  construct  a  master  tape  as  described  in  Section  C. 

5.  How  to  add  records  to  an  existing  file  on  tape. 
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1.   Transferring  a  file  to  tape 

Assume  the  file  called  ALL99  is  on  the  disk  and  a 
printout  is  required. 

a.  Select  a  scratch  tape  and  make  it  available  to  the  computer 
center.   This  example  assumes  LIB999  is  the  tape. 

b.  Sign  on  to  CMS. 

c .  Type 

cp  msg  cp  please  attach  tape  LIB999  with  ring  as  181 

Wait  until  the  message  returns  that  device  181  has  been 
attached.   This  may  take  several  minutes  if  the  computer 
center  is  busy. 

d.  Type 

tape  rewind 

e)   Type 

tape  dump  all9  9  memo  pi 

This  will  dump  the  master  file  onto  the  tape.   It  is  prob- 
ably a  good  idea  to  do  so.   It  will  serve  as  backup  for 
the  disk  file  and  will  correspond  exactly  to  the  LIBTAPE 
version  you  will  be  reading. 

Type 

tape  writeof 

This  will  write  an  EOF  mark  on  the  tape. 
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f )  Type 

filedef  01  dsk  all99  memo 
(wait  for  response,  a  second  or  two) 
Type 

$  libtape 

The  LIBTAPE  program  will  execute.   The  number  of  records 
processed  will  be  printed  at  the  terminal.   Wait  until 
execution  ends  before  touching  the  keyboard.   This  may  take 
several  minutes  for  a  large  file.   Normally  it  will  take  a 
few  seconds,  maybe  a  minute  for  5  0  records.   The  LIBTAPE 
program  automatically  writes  EOF. 

g)  Type 

tape  rewind 
Type 

cp  detach  181 
Type 

cp  msg  cp  done  with  tape  LIB9  99 

h)   Type 

cp  log   (if  you  want  to  sign  off) 

The  desired  file  is  now  file  2  on  tape  LI3999.   It  can 
be  nrinted  using  LIST  with  the  appropriate  JCL. 
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2.   Correcting  a  file  not  currently  on  disk 

Assume  we  want  to  correct  records  in  the  files  currently 
on  tape  LIB202  (see  Section  IVB  for  contents  of  this  tape) . 

We  will  assume  here  that  the  normal  space  assigned  for 
the  FACPUB  system  is  adequate  to  hold  the  necessary  file. 

a)  Sign  on  to  CMS 

b)  Type 

cp  msg  cp  please  attach  tape  LIB202  with  ring  as  181 

Wait  until  the  tape  is  available.   Availability  can  be 
confirmed  by  typing  the  next  command. 

c)  Type 

tape  rewind 

d)  Type 

tape  skip  4 
This  will  skip  the  first  4  files  on  the  tape. 

e )  Type 

tape  load  5 

This  will  load  the  next  5  files  onto  the  disk.   (Actually 
the  10  cylinders  available  are  not  sufficient  to  hold  all 
this.)   The  tape  can  be  rewound  and  detached  and  the  operator 
notified.   This  would  be  the  procedure  if  the  corrections 
are  lengthy.   Alternatively,  the  corrections  can  be  made 
immediately  and  the  corrected  version  put  back  on  the  tape 
In  either  case  we  will  assume  that  the  files  are  now 
corrected  and  properly  sorted. 
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f)  Type 

tape  rewind 
tape  skip  4 

g)  tape  dump  SDAPRE76  memo 
tape  writeof 

tape  dump  SDAALL76  memo 
tape  writeof 

At  this  point  the  corrected  master  files  are  rewritten 
on  the  tape. 

h)   Type 

filedef  01  dsk  SDAPRE76  memo 

$  libtape 

(wait  until  execution  ends) 

filedef  01  dsk  SDAALL76  memo 

$  libtape 

(wait  for  completion) 


Repeat  these  steps  for  each  file.   At  that  point  the 
LIBTAPE  versions  are  also  on  the  tape. 

i)   Type 

tape  rewind 

cp  detach  181 

cp  msg  cp  done  with  tape  LIB999. 

j )   Type 

cp  log 


55 


Since  the  10  cylinders  assigned  to  the  FACPUB 
system  are  not  sufficient  to  hold  all  of  the  LIB202, 
the  above  procedure  will  fail.   However  the  process  of 
loading  selected  files  onto  the  disk  is  still  the  same. 
The  files  can  then  be  corrected  whenever  time  permits 
and  they  can  later  be  rewritten  onto  the  tape  using 
temporary  disk  space  (see  Example  3  which  follows) . 
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3 .   Correcting  a  file  on  tape  using  temporary  disk  space 

We  will  now  address  the  case  in  which  the  10  cylinders 
available  for  the  FACPUB  system  are  inadequate  to  hold  the 
file  currently  on  tape . 

a)  Sign  on  to  CMS 

b)  Type 

cp  def  t2314  192  20 
format  t  all 
release  191  p 
release  192  t 
login  192  p 
login  192  b 

At  this  point  20  cylinders  of  temporary  space  are 
available  and  they  have  been  redesignated  as  the   d   disk. 
Be  careful  when  typing  the  above  commands  that  you  do  not 
type  "format  p  all"  as  this  will  erase  the   p   disk  if  you 
elect  to  continue.   At  that  point  in  the  sequence  of  commands 
the   p   disk  is  the  10  cylinders  normally  available. 

After  these  commands  are  complete,  the  user  might  wish 
to  type   s  (status)  and  later  1  (list)  to  confirm  his  position. 

c)  Get  tape  LIB20  2  attached  and  rewound  as  in  previous  examples 

d)  Type 

tape  load  9 

This  will  load  all  programs  and  master  files  from  the 
tape  onto  the  newly  available  20  cylinders.   Corrections 
must  be  made  and  the  corrections  rewritten  on  tape  before 
signing  off  since  the  20  cylinders  will  be  lost  when  the 
user  signs  off.   The  10  cylinders  (currently  designated 
as  the   b   disk  will  then  revert  to  the   p   disk) . 
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Assuming  all  corrections  are  completed, 

e)   Type 

t  rewind 

t  skip  4 

t  dump  SDAPRE76  memo 

t  writeof 

t  dump  SDAALL76  memo 

t  writeof 


f)   Continue  as  in  Step  g,  example  2. 
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4.   Constructing  a  master  tape  as  described  in  Section  C. 

Assume  all  the  programs  and  the  relevant  files  are  on 
the   p   disk. 

a)  Sign  on  to  CMS,  get  the  desired  tape  attached  and  rewound 
(see  Examples  1  and  2) . 

b)  Type 

tape  dump  libtape  text  pi 

tape  writeof 

tape  dump  tt  aplws  pi 

tape  writeof 

repeat  for  ICHAR,  IPACK)  


c)   Continue  as  in  Step  g,  Example  2 
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5 .   Adding  records  to  an  existing  master  file 

Assume  temporary  disk  space  is  required  as  in  Example  2, 
and  assume  that  a  new  file  called  ADD78  is  on  the  p-disk  and  must 
be  added  to  the  current  file  SDAALL78  or  LIB202. 

a)  Sign  on  CMS  with  temporary  space  as  in  Example  3. 
Get  the  tape  loaded  and  rewound. 

b )  Type 

tape  load  9 

This  will  load  the  programs  and  the  files  SDAPRE76,  SDAALL76, 
SDAALL77,  SDAALL78,  and  SDAALL79 . 

c)  Type 

t  rewind 

The  file  ADD78  originally  on  the  p-disk  is  on  the  disk 
now  designated  as  b .   To  get  a  copy  onto  the  p-disk  the  COMBINE 
command  can  be  used.   In  this  example  the  file  will  be  combined 
in  one  step  with  SDAALL78. 


d)   Type 

combine  TOTAL 7 8  memo  pi  SDAALL78  memo  pi  ADD 7 8  memo  bl 

The  file  TOTAL78  should  include  both  SDAALL78  and 
the  ADD78  files.   Confirm  that  it  is  the  correct  size  by  listing 
the  files  (1  for  list) . 


e )  Type 

erase  SDAALL78  memo 

f)  Type 

sort  TOTAL 78  memo  SDAALL78  memo 
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The  terminal  will  request  that  sort  field  definition  be 
entered.   Assume  we  want  to  sort  by  department  and  alphabetically 
by  first  author. 

g)   Type 

1  3  737  800 

Now  the  file  SDAALL78  memo  should  contain  the  ADD78  file 
sorted  as  described. 

All  that  remains  is  to  rewrite  it  on  tape. 

h )   Type 

tape  skip  7 

tape  dump  SDAALL78  memo 

tape  write of 

tape  dump  SDAALL7  8  memo 

tape  writeof 

Continue  as  in  Step  h,  Example  2. 
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E .   Miscellaneous  Commands 

The  instructions  discussed  in  this  section  are  not 
intended  as  a  tutorial.   They  are  recorded  here  for  completeness 
and  should  not  be  attempted  by  the  user  without  knowledge  of 
the  CMS  system  or  without  reference  to  the  CMS  user's  guide. 

1.   To  attach  a  tape  (with  ring) 


cp  msg  cp  please  attach  tape  .... 

with  ring  as  181 

2 .   To  detach  a  tape 

t   rewind 

cp  detach  181 

cp  msg  cp  done  with  tape  


3.  To  position  or  scan  the  tape 

t  rewind 

t  skip  n  (if  desired) 

t  scan   n  (if  desired) 

t  rewind  (if  desired) 

4.  To  dump  a  file  onto  tape 

t  dump  filename  filetype 
t  writeof   (if  desired) 
t   rewind    (if  desired) 

5 .  To  load  the  contents  of  a  tape  onto  the   P   disk 

(  position  the  tape) 

t   load  n 

t   rewind    (if  desired) 
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6.  To  write  a  file  onto  tape  using  LIBTAPE  (this  is  in 
preparation  for  printing) 

(position  the  tape) 

filedef  01  dsk  filename  file type 

$  libtape 

The  filedef  and  libtape  commands  can  be  repeated  for 
other  files.   Do  not  write  an  end  of  file  since  the  libtape 
program  already  does  this. 

7.  To  sign  on  with  temporary  disk  space 
cp   def   t2314   192   20 

format   t   all 
release   191   p 
release   192   t 
login   19  2   p 
login   191   b 

8.  To  delete  records  from  a  file  (this  will  change  the 
sequence  number  of  all  following  records) 

The  following  example  will  erase  record  number  52 
out  of  the  file  called  ALL79.  It  assumes  there  are  5  3 
or  more  records  in  the  file. 

split  all79  memo  XXX   memo  1   51 

split  all 79  memo  XXX  memo  5  3 

erase  all 79  memo 

alter  XXX  memo  pi   all 79  memo   pi 
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9.   To  transfer  files  to  the  spooled  reader  (or  to  another 
user  number) 

cp   xfer   d   to  nnnnp  (nnnn  =  user  number) 

disk   dump   filename   filetype   filemode 

cp   xfer   d   off 

User  number  nnnn  can  load  the  file  by  issuing  the 
disk  load  command. 

10 .  To  combine  or  copy  files 

combine   newfn   newf t  newfm  oldfn   oldf t  oldfm 

1 1 .  To  sort  files  under  CMS 

sort  oldfn   oldft  newfn   newft 

12 .  To  change  a  filename 
alter  oldfn  oldft  oldfm  newfn  newft  newfm 
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V.   PROGRAM  LISTINGS 


1] 
2] 
3] 
43 
5] 
6] 
7] 
8] 
9] 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
3? 
33 
3H 
35 
36 
37 
38 
39 
UQ 
41 
42 
43 
UU 
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'  INPUT  ;V  i  DC  ;  APLN  ;S  -,X  ;J  ;  AV  ;  NV  ;N  A  ;TV  ;V  F 
/♦Up '   » 
'WHAT    FILE* 

LRET:'~0    END,    PUT    lEPT    nODE      Z       ' 

'LEFT    nODE' 

+  (  'Z  '  =lt,X<-a)p0 

7[  i3]+$2+$DC«-X 

S-FILESIZE    APLN+-APINAVE   WF,*    MEMO* 

'THIS    ENTRY    WILL    BE    ASSIGNED    SEQUENCE    NUMBER     '  ;5  +  l 
Lit  '  *UB    nODE1 

+(0*^*(3t.?*l!l)  RIND  EX    £Q&)pL2 

'incorrect  input, ■ check  code1 

+L1 

L2:/[u3*-££ZU3 

7*12+7 
L3  :  'TO    aUTHS' 

->(0=I^D)pO 

7^7, LIT    AM-8U 

e7*l 

iY7<-/17«-0p  »     ' 
L4:  '«£/?#    +'  ;J 

i47*^7,^*30  +  3 

NV+NV .NAMSCHG    X 

HNAZJW  +  DpL** 

7*7 , 2^0t^7 

»-££' 

T7-iI! 

7*7,  2  4o  +  r/,a 

»nI2" 

T7-J 

7-7,  24  3  +  r7,i?J 

•     d  r7  7  r.  7»  y     r  77 ' 

7[5+i3  ]<-$3+$l21 

7[9  +  i3]*4>(2t<f>i!l),  '  ' 

£5  :  T."C  nCZ)5" 

*(  U*lt  y'I)eSECV)oLS 

'\NCORRECT    nOQS,     pEENTER1 

+  LS 
L  5  :  7  C  9  ]  ** 

7-7,  6  4  +  :V7 

PRNTCODE 

(/?*/)    tftfJTS    APLN^+S+l 

CMS     '  FINIS    *    * ' 

+LRET 
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1] 

2] 
3] 
4] 
5] 
6] 
7] 
8] 
9] 
10 
i  i 

12 

13 

14 
15 

15 
17 
18 
TO 
19 
20 
21 
22 
23 
24 
2  5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

4  0 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

5  1 
52 
5  3 


V  CORRECT  ;X  i  J ;  V ; I  %IV  \S  \AV  ;  Z  ;  APLN ;  VI  \FN  \XX  \D  \WF 

'WHAT    FILE' 

N+FILESJZE    APLN+APLNAME?},'    MEMO' 
Llil(aEAT    (EQUENCE    TUMBER' 

+  (  0=7^0)  PL"7 

+(NZY)pL2 

1 \NC0RRECT    (EQUENCE    JUMBER' 

+L1 
L2\  AV-~8*tV*-8QQ  +  R*-READ    APLN ,Y 

AV+AV, 26p'     ' 
L5  :  • JLEIV    tO<+' 

■»•(  0=JMTJ)  pL4 

*nURRENT' 

VlIV  +  tFIM.tliXl  +  \,FI£lL2;Xl] 
+(X€     16    17)Pi:20 
L9:'TffV    +    If    CURRENT    OK,    JUST    RETURN1 
-*■(  '      •aitZ+'CDpLS 

+(-*£    16    17)pL8 
u20: 'RETURN    TO    KEEP,    OR    TYPE    3    CHARACTERS    WHERE    ERROR   BEL 
ERASE' 

•*(  '     '=ltZ^J)pZ/5 

+(  3*  +  /(  'ra'=3tZ) )p£37 

'FORMER    CONTENTS    OF    FIELD    ERASED,    TYPE    NEW    CONTENTS' 

+L8 
L37tD+~l 
L23:Z?«-Z?  +  1 

-*(3=  +  /(  3tZ)  =  (  3  +  0  +  7  [  IV  ])  )p£2i 

■*<  Z?<FIM[  2;*] -3  )p£2  3 

'CANT    FIND    THESE   CHARACTERS' 

+L2Q 
L21;Z+D+VlIVl 

'CURRENT..    CONTINUE    FROM    HERE' 

Z 
u22:Z+-Z,\!\ 
LS  :+(X*2)pL,ll 

+  (  0*XX«-(  3+Z)     RINDEX    ££M)pL10 

'     INCORRECT    INPUT,    nHECK    nODE' 

+L3 
£1Q  : 7[I7 ]«•£££[ ffl 

ull:+(~X£    1    4)pLl2 

VLlVl+<$>,FI%l2;X]+$,Z 

+L5 
L12:-v(.Y*6)pZ,3 

7CI7]*-1     '  ,~2  +  Z 

L3:7[I7]^FI^[2;I]tZ 

+(~Xe    8    9    10)pL6 

<47[  (  30*I-8)+i  3Q1-NAMECBG    VlIVl 
LS  :-*-L5 
^4:(/?^800+("644-7)  ,/J7)    WRITE    APLN ,Y 

CMS    'FINIS    *    *' 

£7  :CMS    'FINIS    *    *» 


!I.V5,    X 
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V  DISPLAY\V\A\N\I\X\K\T\FN 

[I]  'WHAT    FILE1 
[2]    FN<-\D 

[3]     'WHAT    SEQUENCE    NUMBERS1 

[4]    V+-Q 

[5]    A+APLNAME    FN.'    MEMO1 

[6]    N+qV+,V 

[7]    1-1 

[8]  Li  :*«-/? SMC  d.^Cl] 

[9]    *««-7  3  6t* 

[10]   tf^* 

[II]  1  3 1  .V 
[12]  X-13+X 
[13]   £+-0 
[14]  L2:X+K+1 
[15]   -►(  30=+/(  30p  ' 
[16]  X+30+X 
[17]   r 

[18]  L3  :-►(£  =  8  )oL4 
[19]   -L2 

[20]  L4:     6    uo    p  2  40  +  .r^2  5  3  +  // 
[21]       *«-240  +  f 
[22]       3    60    o243tI 
[23]       63tl80>J 
[24]       HNZI+I  +  1)qL1 


=T+30fX) )pL3 
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V  ADDFAC;R;IN;J 

I]  'TYPE    NEW    ENTRY    AS    FOLLOWS' 

2]    'ID    SPACE    SPACE    NAME    SPACE   SPACE    DEPT  ' 

3  ]    ZM 

4]         R+BLANK2   IN 

5]         J<-0 

6]  £!:-»•(  3=  +  /  (  (<t>3t<|>/?)  =  3  +  4d[(efx20)+i3]))pL3 

7  ]         eT^e/"  + 1 

8]         +(J=NFAC)pL2 

9]         +L1 

10]  L3:'IZ?    NUMBER    ALREADY    USED,    BUT    OK1 

II]  20  +  (Jx2Q)+i4i4 

12]  L2  :AA+AA,$3+$R 

13]       IJM  (p/?)  +  2)IIV 

lu]       AA+AA,1*+R+BLANK2   IN 

15]      IJlM  (pfl)  +2)+I# 

16]       /J^4i4,<j)3t^SL4M2    IV 

17]       NFAC+-NFAC+1 

18]        'YCi/ff    ff/VT/?Y    15    BELOW1 

19]       20t(  20x/VF/1C-l)  +  .4^ 

20]   'ISSUE    SAVE    COMMAND    IF   OK,    LOAD    TT    COMMAND    IF    NOT' 

21]   p  0 
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10 

1  -1 


V  FIXFAC;X;J;Z;IN 
1]    'ENTER    ID    NUMBER    FOR    ENTRY    YOU    WANT    TO    CORRECT' 

2]   *«-4>3  +  4>i3 

3]    J+Q 

4]   £i:+(3  =  +  /(3  +  ;rs3  +  iM[(erx20)  +  i3])  )pL3 

6]  -*(  j-x^f^c)  p^2 

7]  "►£/! 

8]  ^3  :  'ENTRY    IS' 

9]  2G  +  .4/l[Ux2Q)  +  i20] 

'15  rtfis  rtfff  ..?VTffr  roi/  v^/vr  to  fix,  yes  or  no1 
+( :  =  +  /(  '7'=ita)  )pi/6 

uS:'TYPE    CORRECT    ENTRY    AS    FOLLOWS,    X    TO    DELETE,    BLANK    TO    KEEP1 
'ID    SPACE    SPACE    NAME    SPACE    SPACE    DEPT' 

■*(  '    '  =:tz<Hj)po 

-►(  'X1  =1+Z)p£4 

i4i4[(Jx2  0)+i3]«-$3+<j>/?«-3£/!M2    2 

Z<-( (pff)+2)+Z 

,4.4[(  (£/*20)  +  3)+i  1*]*-1H  + R+BLANX2    Z 

Z<-(  (pi?)+2)  +  Z 

i4/4C(  {J*2Q)+17)  +  \3]'+Q3  +  $BLANK2    Z 

'ENTRY    NOW    IS' 

AAi(J*2Q)+\2Q] 

'ISSUE    SAVE    COMMAND    IF   OK,    LOAD    TT    COMMAND    IF    NOT' 


12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 


u2:'CANT    FIND    THE    ENTRY    YOU    WANT,    CHECK    DIRECTORY' 

L±:AA<-(J*2Q)+AA,(U  +  l)x2Q)+AA 

NFAC+NFAC-1 

'ENTRY    DELETED,    ISSUE    SAVE    COMMAND    IF    OK' 
L5:-*-p0 


V  SEEFAC;X 
Cl]    X<-(oAA)i20 

[2]    'THE    NUMBER    OF    ENTRIES    IS    ' 
[3]    X 

[4]    (X,20)qAA 
C  5  ]    +p  0 
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FILE:     LIRTAPE       FORTRAN 


98 

100 


200 

c 
c 
c 

2 


c 

99 
201 


INTh 
INTF 
INTE 

N=80 
CALL 
CALL 
CALL 

KO'JN 
KCLN 
READ 

FORM 

KOLN 
CALL 
H 
DO'  1 
IF  ( 
KK=K 
GO  7 
CD  NT 
*RI  7 
FO°M 
GG    T 


GER* 

C-ER* 
C 
DSD 

T^P 

DSD 
T  1  =  0 
7C  =  0 
(  It  1 
*~  ( '■* 
11  =  K 

CON 
CW    v 

K-l 

iri(l 


2     1M  30  0  )/30G*Z40'tri/ 

2    ALTH(6  )  //.  F  140  ,ZF  240, ZF  340,  ZF44C,  ZF  54  0  ,  ZF640/ 

2     ZIr,/ZF04D/ 

SET(  01, Mf  1»\'  ) 

5c^  (2,12  ,ojO ,17, I, 800  ) 

SE  T(G2»iM,  1  ,H) 


CC,END=99)     IN 

(200  M  )  ) 

CLNTI  +  1 

VRT  (IN) 

*NY     AUTHORS? 

ft 

3)     .NE.     A  Off 


(K  ) )     GG    TO     1 


D    2 
INUE 
E(6  ,200) 

6T  (   •     R A  0 
C    93 


KK  jKC'JN'I 

AUTHOR    COUMT:     '  ,1 


2,  • 


SKIPPING    RECORD 


,15) 


WRITE    GUT    OR  I  GLIAL    CITA7IGN 

WR  ITF(  12,  ICO  )     IN 
KOUNTOKCUNTC+1 

GO    TC    9  3 


KRITE(6  ,201) 

FORMAT!  '    E  JO 

STCP 

ENC 

SUBROUTINE    COM VR 1     (IN) 

INTEGER*2    Z(o4),X(o4), 

IN7EGER*4    CHAR 


KCUNTI,  KCUNTG 

-    RLC  3RUS    IN:    •    ,1  10 


RECORDS    OUT:     •  ,110) 


IN(3G0)     ,3LANK/Z4040/ 


11 
10 


DATA  V  15  /WO  ,  Z7F40,Z  5340,  Z504  0,  Z4D40,  Z5  040  ,Z  40  40  ,Z  5F4C, 
*Z4C4C,Z4C<*0,  Z4B40,Z7640,ZVE4  0  ,Z6  0rO  ,  ZD440,Z404  0, 
*Zc640,  ZC5  4u,ZD^4G,.7  F  34C,ZE  £4C,  ZE440,  ZC940  ,Z0  64  C, 
*Z4C4C  ,Z4C40,Z4040  ,20740  ,Z5C40  ,  Z4C40,  Z4J40,  27  E*+0  , 
*Z6  140,  Z  7  94  0,  ZC  L4G,  I's  240,  ZC  44  0,ZC  7  V  0,  ZCO  40,  ZOL40, 
*  2034  0, Z4D40  ,  Z6  34U  ,24040,  ZC 64  0,  Z7040,  ZD34 0, Z 7 \ 40 , 
*ZE  S4C  ,ZE  7-»C,ZC3  4C,ZE!)4  0,  ZC24  0  ,2G54  0  ,  76  F4  0,7.4  04  0, 
*Z4040, ZbE 40, Z 40 4U,Z 4 C4C,Z0  24C,Z6C4  0,Z404C,Z404  0/ 

DATA  X/Z3140,ZS24C,ZS340,Z  3440  ,Z3  5  40  ,Z8  640  ,Z  3740  ,  Z3840, 
*Z894C,  Z^GhO,  7404  0,  Z  -to  40  ,  Z  4  04  J  ,Z  4  040,  Z404C,  Z404  0  , 
*Z914C,Z9240,Z9  34  0  ,Z 9440,2954  0  ,  Z96  40 , Z9  7  40, Z9  04G, 
*Z994C,Z4C4C,Z404C,Z  4C  40, Z  404C  ,Z4C40,  Z4040,  Z40*0  , 
*Z4040  jL^Z-tO  ,  ZAJ40,  Z  A-,40,  ZA54J,  ZA640,  ZA740,ZA  340, 
* Z A  9  4  C  ,  Z  4  C 4  C  ,  Z  40 4  C  ,  Z  4  C 4  C  ,  Z  V  C-+  0  ,  Z4  04  0  ,  Z4  04  0  ,  ZFO  40  , 
*ZF140,  ZF24  0,  ZF34G,  Z  F  44  0,  Z  F  540  ,ZF64G,7.F  74C,ZF  34  0, 
*ZF94C,  Z4G40,  Z4040  ,24040  ,Z4040  ,  Z4040  ,  Z4040,  Z4040/ 

N=80  0 

OC    i  C    L  =  l  ,1 
ChAR-  ICHAR(   IN(L  )   ) 
IF(CHAR.lE.o4)     GC 
I F  (  C  HA  R  .  G  7  .  1  2  3  )     o  C 
LL=CH**-o4 
IML)=ZUL) 
GG    TG     10 
IFKFAR  .1.  E  , 
LL=CHAR-192 
IM(L)=X(LL) 
CO  NT  1NJE 
HE  7LHN 
l:N  0 
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o 

TC 


10 

11 


19  2)     GG    T'l     10 


V 

Ci] 

C2] 

C3] 

[4] 

[5] 

C6] 

[7] 

C8] 

[9] 

[10] 

Cll] 

[12] 

[13] 

[14] 

[15] 

[16] 

[17] 

[18] 

[19] 

[20] 

[21] 

[22] 

[23] 

[24] 

[25] 

[26] 

[27] 

[28] 

[29] 

[30] 

FID-APLNAME    A;K;REM 

ft    REMOVE    EXTRA    BLAIIKS 

A-lHKvl$K-'     i*A)/A~x     X,A,X     ' 

ft  FIND    END    OF    FILENAME 

K-(A\*     '  )-il 

ft  IF   ONE   WORD    -    SYNTAX    ERROR 

■+(X  =  pA)  /SRI 

ft  EXTRACT    FILENAME 

FID-8+K+A 

A    AND    REMAINDER 

REM-UC  +  ll  +  A 

ft  FIND    END    OF    FILETYPE 

K-(REM\x     »)-il 

ft  ADD    FILETYPE    TO    FILE 

FID-FID, ( BiKfREM) 

ft  EXTRACT    2ND    REMAINDER 

REM-(K+1) *REM 

ft  CHECK    SPECIAL    MODES 

-*•(  (a/  'Si"  =2t^)v(A/'  *  »  =2+ff£M)  5 /LI 

ft  MODELETTER-xPy    UNLESS    OTHERWISE 

FID-FID,   '  ABCTP1  [  'dflCZ"  iltffO] 

ft  M0DEN0-X1X    UNLESS    OTHERWISE 

FID-FID, ' 0234551' [' 023455' iltl+flEM] 

-L2 
LI: FID-FID, 2* REM 

ft    RECTYPE-1 Fx    UNLESS    V    SPECIFIED 
L2:  FID-FID,  '     '  ,  '  FV  '  [  (  *  V  '  =~lt/?£tf)  +  i  1] 

ft    CONVERT    TO    EBCDIC    INTEGER 

FID-2    OF    FID 

+0 
ER1:  x  FILETYPE    MISSING1 


V  N -FILE SIZE    FID 
[1]    /V*-l  C 21  '<2SrZ£  FI0' 
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9  Y    WRITE    FID 

[1]  lQll'QWRITE   FID    . 

[2]  +(0=10tlO)/0 

[3]  WRITEERROR    10410 

[4]  * 


V  WRITEERROR   EC 
Cl]    a  SELECT    MESSAGE    APPROPRIATE    TO    ERROR   CODE 
[2]    +(EC=    0  1  4  5  7  12  14  15  16)/W0+  012263354 
[3]    A  GT/ff  STANDARD    MESSAGE    FOR   OBSCURE    OR    'IMPOSSIBLE1    MESSAi 
[4]    -►(S'Ce  2  3  6  8  9  11  13  17  18  19) /LI 
[5]    -►O.pOT/V/dLrZ?  £fltfOff  C0££" 

[6]  Lit 'WRITE    ERROR    NO.     '\EC\%     -    CONSULT    MANUAL1 
[7]    +0 

[8]  MO  :+0,pQ<>-' WRITE    OK1 
[9]    -►O.pO'rAW/iLrO  FILENAME1 
[10]   "►0,pQ«-,r/W/4LrD  FILEMODE1 
[11]   -♦•O.pO'J'IXfi'  IS  READ-ONLY1 
[12]   ->-0,pa^'£-7  ERROR1 
[13]   +0tpO'/?£Ctftf£>  LENGTH    ERROR1 
[14]   "►0,pO,£TL£  IiVD£X  ERROR1 


¥  A+READ    FID 
[1]    i4*10  2l,C/?£-4Z?  FIZ?' 
[2]    +(0=104i0)/0 
[3]    READERROR    10410 
[4]    * 


V  READERROR    EC 

[1]  a  SELECT   MESSAGE    APPROPRIATE    TO    ERROR   CODE 

[2]  -►(££=  0  1  12)  /MQ+    0  12 

[3]  a  GIVE   STANDARD   MESSAGE    FOR   OBSCURE   OR    'IMPOSSIBLE1    MESS  AC 

[4]  +(£Ce  23456739  11  13)/£1 

[5]  ^Q^oD-' INVALID    ERROR   CODE1 

[6]  LI: 'READ    ERROR   NO.     ';EC;'    -  CONSULT   MANUAL' 

[7]  -0 

[8]  MQ  :+0, pCh-» READ    OK' 

[9]  -*0%oU^'FILE    NOT    FOUND' 

[io]  ^o, pQ«-' Fr^ff  rvzjff*  error' 
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7    R<-A    RIND  EX    M;I;J 
Cl]         /?«-(  (*/0=;D  ,X+-*/Ml  ;if/]=(r,J-^p,4)p/l)  /O,  iI«-l  +  pM 

[2]  n    FI/V0S    T.VDffX    OF    ALL    ROWS    OF    M   STARTING    WITH    A,    AtM   NUM   OR    LIT* 

,    GIVES    0    IF    A    NOT    IN    M 
7 


7    R+LIT    A 
CI]         fl«-,'0123456789'[l  +  (  (  1  +  L  10»4  )  p  1  0  )  J  A  ] 
7 


V  NV-NUM    V 
Cl]    HW«-10i(  '  0123456739'  i7)-l 


V  R+NAMECHG    V ;TV ;T 

Cl]  IT^K 

C2]  2,7C(7e(/C7)/ip^]^L^y[(  ( 1  +p!JCV  )*T  )  /T+UCV  \  V  ] 

[3]  J?«-2*y 

V 


7    L+BLANK2    X;A;K;LOOP 
Cl]         LOOP+0 
[2]         £«-p* 

C  33       z>i+;r 

[4]  £l:-*(2  =  +  /(  •        '=/J*2  +  r^lir))pO 

C5]         LOOP-LOOP+1 

C6]         2>L,1M 

C7]         -»>(L00P  =  *-l)pO 

C8]         -LI 


7    R+TRANSMAJ    V\X;Y;A1;A2 
Cl]         41-*-!-»»a)  x*v*+[]""<si>-(  ;  :  » 
C2]         ^2>-»     v~^)*(     <<-;[]>:     "     "  i 
[3]         R+V 

c  4  ]      #[*/  ip ,  vi+A2  c  u«-2i*r )  /y+a  i  iv] 

7 


7    R+TRANSAJni    V\X;Y;AliA2 

[1]  ^>,x[]"'<<>>?V.;+();:l 

C  2  j  A  2  ■*- '     <<(  )]['«>va":>;j">; 

[  3  ]  .?-'/ 

[4]       ffCx7ip,T/3«-/$2CU*l9*y)  /y^ir/] 
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V  PRNTCODEiIDiAUTiN  \PC\M\YR\DC\  FIRST  ;  FOUND  ;  NA  ;  AUTH  ;  J 
1]    FIRST+-Q 
2]    FOUND+-Q 
3]    NA+NUM    It  12  + 7 
4]    IZ?«-3  +  5  +  7 

5]       /j£/r<-i  4*13+7 

6]         0O3  +  7 

7]         YR+2+10iV 

8]         +(  C/V£/A/    Yfl)<76)pL4 

9]         tf«-0 

L3  :N+N+1 

+  (3  =  +  /(J£>=3*(2Qxtf -1)1/1/1)  )pi,2 

+  (,V</VP/1C)po3 

+  (Ptf£//VZ?  =  l)pL9 

POO 

*ID    NBR   NOT   IN    DIRECTORY,    PRINT    CODE    0  ASSIGNED1 


10 
11 
12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
UO 
41 
42 
43 
44 
45 
U6 
47 
48 
49 
50 
5  i 
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u2i+(3*+/DC=3i{17+20xN-l)*AA)pLlQ 
+(l±=  +  /(AUT=AUTH+l±+(  3+2  0*:V-l)+i4/O)pZ,4 
eT«-Q 

+(J=NA+l)pLl2 
.  *(14  =  +  /(i4i/2,ff=14t(13  +  30x(«^-l))+7))pZil3 
■+£11 

£12: 'FACULTY    WITH    THIS   ID    IS    NOT    ONE   OF   THE    AUTHORS    ENTERED1 
POO 

'PRINT   CODE    0  ASSIGNED1 
->£8 

Lo  :M*-M+1 
■+(  14=+/(/1^/r=14t(  3+2  0x,V-l)  +  /1/1)  )p^5 

+(M<NFAC)qLS 

-►(FlflSJ^DpLS 

PC +-4 

'FIRST    AUTHOR    NOT   IN    DIRECTORY.    PRINT    CODE    4  ASSIGNED1 

+  L8 
ulQ:+(N=NFAC)pL3 

FOUND*-! 

+£3 
LS:1 DIRECTORY    SHOWS    THIS    AUTHOR   NOT   IN    DEPT    ENTERED1 

'PRINT   CODE    5  ASSIGNED1 

P05 

■+L3 
L4:POl 

-*L8 
uS:FIRST+l 

-*-(3  =  +  /(3  +  <  1  7  +  2  0 xtf-  1 )+, 4 /I  )-DC)  pL 7 

PC<-2 

-*£8 
ul :P03 

■+LS 
LS'.PC+l  +  UuIT    1Q+PC 

VI  5]*-PC 
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// 

// 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 
c 
c 
c 


EXEC       FORTCLG, REGION. GO=!80K 
FCRT.SYSIN    DO    * 

LIST 

THIS    IS    THE     BASIC     PRINTING    PPOORAM     FOR    T  HE     =AC°JB    SYStc^" 

IT    OPERATES    ON    FILES    WHICH    HAVE    BEEN    CONSTRUCTED    USING    "HE    API    ^irs^c 

INFUT    AND    CORRECT    AND    HAVE    THEN    BEEN    TRANSLATED    US'NG    THE     PROr,cv    LIBTAPE 


ThE    PROGRAM    PROVIDES    A    SEQUENTIAL    LISTING 
A    SEQUENCE     NU^PFR    IS    ALSO    PRINTED 


Oc    THE     FILE    CONTENTS 


SETUP.... 

JCB  CARD,  CECK,  END 
JCL 

3  CARDS  SHOWING  A    UNP  3 
DATA  CARD  SHOWING  NUMBER  OF 
DATA  CARD  SHOWING  NUMBER  IN 
CRANGE  CARC 


BK- 

FILES.  15 
EACH  FILE, 


ALL  15 


WITH  A  VERY  MINOR  CHANGE  THIS  PROGRAM  CAN  RE  US  =  D  ~  0 
SKIP  TO  A  NEW  PAGF  EACH  TIME  A  NEW  AUTHOR  IS  c NCOUNTE° ED 
THIS  IS  EXPLAINED  Ofl  COMMENT  CARDS  IN  THt":  LISTING  BEL™*/ 


DO 
CR 


NOT 
YOU 


DC  THIS  UNLESS 
WILL  GCT  A  NEW 


THE  INPUT 
PAGE  WHEN 


TAPE    IS 
YOU    DON' 


SO?.TED     BY     t'JTHQR     10 

WANT     IT 


DIMENSION 
01  MEMS  I  ON 
DIMENS ION 
INTEGER  * 
INTEGER  * 
INTEGER  * 
INTEGER  * 
DATA  RLK/ 
AUTM=3LK 
LMX    =    60 


22) 


ALPHA(2 
ALPUoJ 
NTC<201 

2    IALP2O0 
2    IPLI60J 
2    IBLK    /' 
2    I  WCA 
V 


), 


IALP3(240),     IAL°M243» 

ISCO    /,;«/,     ISTAR     /'*'/,     INOA     /'IN'/ 


LAU 
LMT 
LTI 
LMS 

LSO 
IAL 
LICR 
LIME    = 


30 

56 

240 

53 

243 

22 
15 
75 


10 


LMAX    =     75 

REA0<5,1)     ALPHA 

FORMAT <1 0( IX,     Alt     3X,     A3)) 

IC    =    0 

IA    =    7 

REA0(5,3)    NOF 

NFC    =99999 

NPF    =     1 

IF    (NOF     .LT.     1)    GO    TO    10 

READ(5,3)      (MF(I),     1  =  1, NOF) 

FORMAT (  I ft I  5) 

NFC    =    N I F  (  1  )     +    1 

CONTI NUE 

REA0(8t4,EN0=80)     ALPl,    NA 

FORMAT (A3,A1,A1,A3,A1,A3, 

IC    =    IC     +    1 

IF    ( IC     .LT.    NFC)    GO    TO    5 

NPP    =    NP<:     +    I 

IF    (NPF     .C,t.     NCF     )     GO    TO    00 

NFC    =    Nl  MNPFI     «■     I 

IC    =    1 


IALP2.     IALP3,     IALP^ 
11,     240A1.    240AI,     243A1) 


5    CONTINUE 

TO    GFT    A    NEW 

CC    THI S    ONLY 

THERE    IS    ONF. 

IF( AUTH. 


]F     ( ( LI NL+LICR) 
CONTINUE 


PAGF     FOR     EACH    NEW    AUTHOR     INSERT    CARD    BcLOW 
IF     7>E     INPUT     IS     SORTED     BY    A'ITmor 
CTHEP    CARD    THAT     MUST    Bfc     INSERTED 
.ALPICIIGO    TO     7  0 


.  (i 


LMAX)     GO    TO    70 
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DO    8    I     =    1,IAL 

IF    (ALPK2)     -N5.    ALPHA(1,D)     GO    TO    8 
ALPK2)     =    ALPHA  (2,1) 
GO    TO    9 

8  CONTINUE 

9  CONTINUE 
WPITE(6, 11) 
LINE    =    LINE    +    2 

11  FORMAT(//) 
WRITE(6,12)     IC,    ALP1 

12  FCRMATC1X,    14,    4X,    A3, IX, A3, IX, Al  , IX, A3, IX, Al, IX, A3    /) 
LIME    =    LINE    +    2 

IBL    =    1 

LC    =    1 

DO    30    I    =     1,NA 

IF     <I8L     .IT.     1)     GO    TO    16 

DO    15    IB    =    LCLMX 

15  IPL(IB)     =     IBLK 
IBL    =    0 

16  CONTINUE 

DO    20    II    =    1,LAU 

IF    (IALP2(!I,I)     .EG.     IBLK    .AND.     I ALP2 ( I  1  +  1 ,  I )     .EO.    IBLK)    GO    tq    i 
GO    TO    20 
18    CONTINUE 

IALP2UI ,1)     =    ISCO 

ICH   =11+1 

LCT    =•    LC    +    ICH    -    1 

IF    (LCT    .GT.    LMX)    GO    TO    26 

GO    TO    21 

20  CONTINUE 

21  II    =    0 

DO    24    J    =    LCLCT 

11=11+1 

IPL(J)     =    IALP2(IItI) 
24    CONTINUE 

LC    =    LCT    +    1 

GO  TO  30 
26  CONTINUE 

WRITE(6,27)  IPL 
21    F0RMATC15X,  6CA1) 

LINE  =  LINE  +  1 

IBL  =  1 

LC  =  1 

LCT  =  ICH 

GC  TO  21 

30  CONTINUE 

IF  (IBL  .LT.  1 )  GO  TO  32 
DO  31  IB  =  LC,  LMX 

31  IPL(IB)  =  IBLK 

32  CONTINUE 
IPLUC-2)  =  IBLK 
WRITE(6,27)  IPL 
LINE  =  LINE  +  1 

I  FN  =  0 

II  =  0 
J  =  1 
LC  =  0 
ICH  =  0 

34  CONTINUE 

II  =  II  +  1 

LC  =  LC,  +  1 

ICH  =  ICH  +  1 

IF  (IALP3UI)  .NE.  IBLK)  GO  TO  36 

IF  (LC  .EO.  1)  J  =  J  +  1 

ICH  =  0 

IF  (IALP3(H+1)  .NE.  IBLK)  GO  TO  36 

IF  (IALP3UI+2)  .NE.  IBLK)  GO  TO  36 

I  FN  =  1 

GO  TO  38 
36  CONTINUE 

IF  (LC   .GT.  L^T)  GO  TO  38 

IF  (II  .LT.  LTD  GO  TO  34 

IFN  =  1 

GO  TO  33 
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38  CONTINUF 
II  =  II  - 

33  CONTINUE 

WP!TE(  6,39) 

LINE  =  L  INC 

IF  (IFN  .GT 

ICH  =  0 

J  =  II  ♦  1 

LC  =  0 

IF  (II  .LT. 

39  FORMAT ( 18X, 

40  CONTINUE 
IFN  =  0 
LWS  =  IMS 
11=0 

IS  =  0 
J  =  1 

IWOA  =  INDA 
LC  =  0 
ICH  =  0 

44  CONTINUE 
11=  I!  +  1 
LC  ■  LC  +  1 
ICH  =  ICH  «■ 
IF  (  IALPM  ! 
IF  (LC  .GT. 
J  =  J  +  1 
LC  =  0 

45  CONTINUE 
ICH  =  0 

IF  (IAL°4( I 
IF  (IALP4(I 
IFN  =  L 
GO  TO  48 

46  CONTINUE 

IF  (  IALP4U 

47  CONTINUE 

IP  (LC  .GT. 
IF  (II  .LT. 
IFN  *  1 
GO  TO  50 

48  CONTINUE 

II  *  II  -  I 
50  CONTINUE 

IF  (IS  .GT. 

WRITE(6t49) 

ICH  =  0 

J  =  II  +  1 

LC  =  0 

LINE  =  LINE 

IF  (IS  .GT. 

IF  (IFN  .GT 

IF  (I!  .LT. 

49  F0RMAT(21X, 
GO  TO  10 

52  IS  =  1 
ICH  =  0 
II  =  II 
IF  (LC 

54  IS  ■  2 

J  =  J  +  1 
LWS  =  47 
II  =  II  ♦  L 
GO  TO  44 

60  CONTINUE 

WPITE(6*6l ) 

£1    F0RMAT(2^X, 
LINE  =  L INF 
IF  (IFN  .GT 
IWDA  =  IBLK 
ICH  =  0 
J  =  II  +  1 
LC  =  0 
IF  (I  I  .LT. 


ICH 


(IALP3(K),  K=J,II) 
+  1 

0)  GO  TO  40 


LTD  GO  TO  34 
57AL) 


1 

I }  .NE.  TBLK)  GO  TO  46 
1)  GO  TO  45 


1  +  1)  .NE.  IBLK)  GO  TO  47 
1+2)  .NE.  IBLK)  GO  TO  47 


I )  .EO.  ISTAR)  GO  TO  52 

LWS)  GO  TO  48 
LSG)  GO  TO  44 


CH 

1 )  GO  TO  60 
(IAL°4(K),  K=J,II) 


+  1 

0)  GO  TO  54 

0)  GO  TO  10 
LSO)  GO  TO  44 
54A1) 


t  1 
.GT.  1)  GO  TO  48 


IWDA,     (  IALP4(K  )t     K  =  J»  I  I ) 
A2,     IX,     48A1) 
+     I 

,    0)    GO    TO    10 


LSG)     GO    TO    44 
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PAGE  POP  EACH  NEW  AUTHOR  IMSERT  CARD  RELOW 


THE  IN?UT  IS 
CTHER  CARD  THAT 


SORTED  8Y  AUTHOR 
MUST  eE  INSERTED 


GO  TO  10 
CONTINUE 

LINE  =  0 

GET  A  NEW 

THIS    ONLY 
THERE    IS    ONE 

AUTH=ALP1 (4) 

WPITE( 6, 71  ) 

FOFMAT(«l'l 

GO    TO    2 

CONTINUE 

STOP 

END 

//GO.FTC5FOOI    DO    Dl  SP  =  t  ULDi  NtfcF)  ,  UNl  i=3'»O0-4  ,D5N=ADD  i 
//    DC  3=  (PECFM  =  F3,  LRECL=3JJ,  BLK  S  I  Z  E=  3  0C  ,  CEN  =  2  )  , 
LA3EL=(  il  ,M.  ,1  N)  ,VCL=  (  ,  P  ET  AIM,  S  6R  =  L  IF2  02  J 


70 

TO 
DC 


71 

£C 


// 

// 

II 

// 

// 

// 

// 

//GC.SYS IN 

A  UNP    B 

K         PP-    L 

U         THE    V 

3 

537       476 


DO    D  IS<3  =  (  OLD,  KEEP)  i  UNI  T  =  AFF=FT0  5F00l  iOSN=ADOt 


DC3=  (RECFM=F3, LRECL=800 

LABEL=(  12  ,NL,  ,1  NJ  ,VOL-( 

DT    DISP=(OLD, 

CCB=(RECFM=F3, LRtCL=300, 

LA3FL=(  13,NLi  ,1  N)  fVOL  =  ( 

DO     ^ 

8K-  C  TBK  D 
PI-  M  ABC  N 
Mis 

614 


PLKS IZE=800, DEN=2) , 
.RETAIN, SE?=LI E202 J 
KEEP) ,UNIT=AFF=FTC8FC01»0SN' 

8LKSIZE=300,  CEN=2), 
.RETAIN, SER=LIB202J 


^ADD 


FRC 
AB1 


PRI 
CH3 


SYC 

RPR 


SYI 

RPT 


SYE 
PAT 


REV 
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TH 
I  T 
IT 

TH 
IT 
TH 
TH 


//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//SORTE 

//SQRTP 

//SORTL 

//S  CRTW 

//SORTW 

//shptw 

//SORTW 

//SORTW 

//SCRTW 

//SQRTI 

//     CC3= 

//       LAB 

// 

// 

// 

// 

// 

// 


GETSORT 


IS    P0HGR&M    is    FO 
IS    FOR    FI  LES    TH 

IS    THE    PRIMARY 

IS     PROGRAM    WI  LL 
WILL    THEN    SORT 
E    SHRTEO    RECORDS 
E    LIST    PROGRAM    S 


R    USE     IN    THE    FACP'JB     SYSTEM 

AT     HAVE    BEEN    PROCESSED    eY    LieTAPE 

MEANS    OF    EXTRACTING    RECCRDS    FRCV    THE 


MASTER    TAPE 


EX  E 
DO 

DO 
D 


R 

IB 

KOI 

K02 

K0  3 

KO<* 

K05 

KOS 

N 

(RECFM 

EL=(11 


CCB= 
LAB 


PECFM 
EL=(12 


C       PGM=IER 

SYSCUT=A 

OSN=SYSl 

UNIT=SY 

INI  T=SY 

UN  IT=SY 

UNIT  =  SY 

UNIT-SY 

UNIT=SY 

DO    DISP=( 

=FB,LRECL= 

,NL, ,IN),V 

DO    OISP=( 


REAC    THE    CONTENTS    nF    ThE    SPECIFIED    FILES 
TrtE     RECORDS    AS    INDICATED    CN    THE    LA^T    CARD 

WILL    ThEN     BE    WRITTEN    ON    A    NEW    TAPE 
HOULC    BE    USED    TO    PRINT    ThE    NEW    FILE 

RCDG0,REGION=150K 


LP 


L  = 


CCB= 
LAB 
//SOPTH 
//  DCB= 
//  LAB 
//SYS  IN 
SCRT 


=  FB, 
fNL»  tIN)  ,V 
DO  DISP=( 
=  F8,  L°ECL  = 
fNLf  » I  NJ  »  V 
D I  5  ?  =  (  N  E  W » 
=  FB,  LRECL  = 
BLP)  ,VOL^=S 


.SOR 

SDA, 
SDA, 
SO  A, 

.1  u  A  , 

SDA, 

SCA, 
CLD, 
800, 
0L  =  ( 
GLD, 
800, 
3L=< 
OLD, 
BOO, 
CL=( 
KEE3 


TLIBfD 

SPiCE= 
SPACE= 
SPACE= 
S  P4CE= 
SPACE= 

spa:e= 

KEEP)  , 
9LKSIZ 
,  R  ET  M 
KEEP)  , 
BLKSIZ 
,RETAI 
KEEP)  , 
3LKSIZ 
, RETAI 
)  f  LNIT 
8LKS  IZ 
I  3999 


I SP=SHR 

(CYLt  (  15  ),  ,  CONTI  G) 

(CYLf (  15  )  , ,CCNTIG) 

IZ YL , (  15)  , , CON  TIG) 

(CYL,  (  15  )T  ,CONT  IGJ 

(CYLt(  15)  ,  tCCNTIG) 

<CYL,(  15  ),  ,  CON  TIG) 

UN  IT  =3  400-4,  CSN  =  DUMt 

E=800,DEN  =  2)  , 

M,S  EO  =  LI3202) 

UNI^=AFF=SGRTINt CSN=CUM, 

E=800,CEN=2) , 

N,SER=LIE202) 

UNIT=AFF=<GRTIN,CSN=CUN , 

E=  30C, CEN  =  2)  , 

N,SEP=LI8202  ) 

=(3400-4,, DEFER)  ,DSN=SCRTED, 

E=800,CEN=2), 


(RECFM 

EL=( 13 

UT    DO 

(RECFMssrtSf  l^  cul=  auu  f 

EL=(  1 fBLP)  ,VQL=SER=L 

DO    * 
FIELDS  =  (4, 1,3 1, A, 1,3 , 3  I , A, 7  37 , 64 t 81, A,  10, 3, 3  I , A  ) , S  IZE= E3CC0 
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// 
// 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


EXEC      FORTCLG, REGION. G0=16CK 
FCRT.SYS IN    CC    * 

BOOK 

THIS    PROGRAM    BOOK    IS    USEC    TG    PRINT    THE    VOLU^N    ENTITLEC 

"RECENT    MPS    PUBLICATIONS*1.       IT    REQUIRES    AN    INPUT    TAPE    CCNTAINII 

RECORDS    SORTEC    INTO    4    GROUPS 

A    CONTRIBUTIONS    TO    BOCKS 

B    JOURNAL    PUBLICATIONS    AND    CONFERENCE    PROCEEDINGS 

C    CONFERENCE    PRES  ENT  AT  I  CNS 

D    TECHNICAL    REPORTS 
THE     INPUT    TA°E     IS    CONSTRUCTED    USING    THE    PROGRAM    GETBOOK 

THIS    PROGRAM    WILL    PRINT    A    RECORD    ONLY    IF    THE    PRINT    CODE    IS    1    CI 
Th.US     IT    WILL    SUPPRESS    DUPLICATES    WITHIN   A    DEPARTMENT 

IF    THE    DEPARTMENT    CODE    ON    A    RECORD     IS    NOT    CNE    OF     THE    ACAOE^IC    ( 
CODESt    THE    PAGE    HEADING    PRINTED    FOR    THAT    RECORD    V<ILL    CONTAIN    A 
DEPT    OF     .... 

SETUP... 

JOe,     DECK,     END 
JCL    SPECIFYING    INPUT    FILE 
DATA.       PAGE    HEADER    FOR     GROUP     1 
DATA.       PAGE    HEADER    FOR    GROUP    2 
DATA.       PAGE    HEADER    FOR    GRCUP    3 
DATA.       PAGE    hEADER    FOR    GROUP    4 
DATA.       ENC    OF    PUB    COOES 
DATA.       ALL 


DI.VENSICN    /LPK6J 
DATA    BLK/»  »  /,     UC/»  U'  / 

DIMENSION       °C0DE(23) 
REAL    *     4    ENDC    /»  END'  / 
REAL    *    4    HEADK  7)     /'NAVA  •• 


' CHOO*  ,     »  L  •  / 


L    PC 


•STGR*,     »ADUA» 


TE    S« 


REAL    *    4    HEAD2(5)     /ZD49695A3, 

Z99958981/ 
REAL    *    8    CONT    /  Z4D839695 A37D845  0/ 
REAL    *    4HEAD3<4)     /    'DEPA',    'RT*E»f    'NT 


Z659985A8,     Z6e40C381,     Z938986<; 


REAL    *    4    DCODEl  LI)    /•     52     -, 


•     53 
67    «  , 


C-  , 


•  F 

,     •     55 
•    69     V 


i 

« 

•    61     '  ,    '     62     '  ,     '     63 
DIMENSION    DEPT(  7,  12) 

REAL    *    4    C52C7)/'  COMP*  ,  «UTER«  ,  '    SCIS'ENCEN' 
'  / 

4C53(7)     /'MATH*  , '  E  MA  T  '  ,  'ICS     »,'  ', 

•  / 


REAL 
i 

REAL 
i 

REAL 
i 


S  ■ 


1  »• 


56 


*  A   C54(7)     /•ADMI  •  ,' NIST*  ,»  RA^p  ,«  VE    S  '  t  '  C  I  EN»  , '  CES 
•/ 

*  4    C55(7)     /'OPER1  ,« AT10'  ,  'NS    P1 ,  ' ES EA  ' ,  ■  RCH    »,' 
•/ 

REAL    *    4    C56(7)    / «NAT I • ,  'ONAL  '  , f     SEC • , • LRI T • , 'Y    AF«,*FAIR 


'S 

REAL 
t 

R  EAL 
i 

REAL   C63(7)    /  «  METE*  ,  •  GRCL  '  ,  'OGY     •»« 


/ 

*  4C6K7)     /'PHYS'j'ICS    'f'AND    •  ,'  CHE  N'  ,  •  I  STR'  ,•  Y 
•  / 

*  4   262(7)     /'ELEC*  t'TRIC  ,' AL    E«  ,•  NG  I  N«  ,  '  EERI  •  ,  »NG 
•/ 

•t 


REAL 
i 

REAL 
« 

REAL 

REAL 
« 


/ 

*    4    C67(7)    /  'AERO  ',  'NAUT  «  ,  fICS    «,' 
•/ 


S1 


•t  ' 


*  t' 


•  t' 


•  ,* 


S  ' 


*  4   C68(7)     /'OCEA  '  ,'NOGR'  ,'AFHY'  ,• 
1  / 

*  4    C6S(7)     /'MECh'  ,'ANIC'f'AL    E»  ,  •  NGI  N  • ,  •  EERI '  ,  •  NG 
•/ 

*  4    CBLK(7  J    /'  «,♦  S  '  't  • 
'/ 

EQUIVALENCE    (  DEPT  (  1,  1  ) ,  C  5  2(  I)  )  ,     (  CEPT(  1 ,  2  )  ,C53(  1)  )  , 

(DEPTH  ,3)  ,C54(L)  )  ,  (  Ct°T  (  1  ,  4  )  ,  C55  (  1  )  ) ,  (  DE^t  (  i  T  5  ) ,  c  56  (  1! 
(DEPT<  1,6)  ,C6U  L)  )  ,  (DEPT( 1 , 7)  ,C62( 1) )  ■  ( DE PT < 1 . 3 ) , C63 a  ) 
(DEPT  (1,9), C67 U  )  ),     (  CE°T(  L  ,10  ),C68(  1)  ),     (  DE  PT(  1 ,  1 1)  tC  t  ^ 


80 


1    (0EPT(1,12),C8LK(1)1 
REAL  *  8  PUB<4,23) 

DIMENSION  MF(20) 

?  IALP2(30,3), 


C 

c 


102 
ICC 
101 

103 
105 

1 

10 

777 


1C6 
4 


C 
C 


13 

6 


INTEGER  * 
INTEGER  * 
INTEGER  * 
INTEGER  * 
DATA  AB/« 


DATA 
DATA 
DATA 
DATA 


AE/» 
AM/  ■ 
AJ/» 
PI/  ■ 


IPL(60) 

IBLK  /• 

IWCA 
'/, AC/'C 
• /,AF/'F 
'/,  AN/'N 
• /,AG/«  0 
V,P2/»2 


IALP3(24G),  IALP4(243) 


'/,  ISCO  /':»/,  ISTAR  /•*•/,  INDA  /'IN'/ 


/,A0/«0 

/,AG/'G 

/,AK/«K 

/ 

/,P4/'4 


,  AD/ 
,  AH/' 


•0 

H 
AL/'L 


/,P5/'5 


LMX  =  60 


LAU  = 
L«T  = 

LTI  = 
LMS  = 
LSO  = 
LEND  = 
LENP  * 
POK  = 
IDE  = 
IAL  = 
LICR  = 
LMAX  = 
LINE  = 
CPUB  = 
CDEPT 
IP  *  4 
IC  -  0 
IA  =  7 
NFC  =9 
WRITE( 
FORMAT 
I  =  0 
I  =  I 
READ(5 
FORMAT 
IF  (  P 
WRITE* 
FORMAT 

GO  TO 
CONTIM 
IAL  ■ 
READ(5 
FORMAL 

ICLASS 
IF  (UU 
CONTIM 
READ(8 
IF(AL? 
IF(AL° 
GO  TO 
CONTIM 
IF  (IC 
IF  (AL 
CONTIN 
FORMAT 
IC  =  I 
IF  (AL 
NE  PUB 


30 
56 
240 

53 
243 

7 

4 
0. 
11 
5 

10 

56 

75 

BLK 
=  BLK 


9999 

6, LC2) 

( • 1   LIST  OF  PUB  CODES 


&  HEADERS'  //) 
IP) 


+  1 

♦101)  PCODE(I)*  (PUB(J.I),  J=l 
(A3 t  2Xf  4A8) 

CODE(I)  .EO.  ENDC)  GO  TO  105 
6,103)  I,  PCODE(I),  (PU8U.I),  J=1,!P) 
(7X,  12,  2X,  A4,  4A8) 
100 
UE 

I  -  1 
t  1  )  UU 
(Al  ) 
=  ? 

.EO.  UC)  ICLASS=  1 
UE 

,4,END=80)     ALPlt    MA,     IALP2,     IALP3,     *ALP4 
1(3)  .cG.P4.0P.ALPK3J.50.P51     CO    TO    777 
1( 3) .EC.P1.9R.ALPI (3 ).EQ.P2  )    GO    tq    777 
10 
UE 

LASS    .EO.    2)    GO    TO    106 
Pl( 5)     .NE.    UC)    GO    TO    10 
UE 

(A3»AltAl, A3, A1,A3,     1 1  *     240A1,    240A1,     243&1) 
C    +    1 

PK2)     .EC.    CPUB)    GO    TO    6 
-COCE 


CPUB    =    ALPK2) 


00    13    I 

IF  (CPUB 
POK  =  1. 
IPPU  =  I 
GO  TO  7 
CONTINUE 
POK  *  0. 
GO  TO  10 
CONTINUE 


1,IAL 

NE.     PCOPE(  I)  )    GO    TO    13 
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8 


2 
9 

11 


15 
16 


18 


20 
21 


24 


26 
27 


30 


31 
32 


24 


IF    ( dqk    .EQ 
IF    (ALP1  (1  J 

CONTINUE 
INPUB    =     0 
CCEPT    =     ALP1 


0.  ) 
EQ. 


GO     TO     1C 
CDEPT  )    G3 


TO    5 


(1  ) 


,  IDE 

.NE  . 


DO    8    I     =1 

IF    (CDEPT 

I  PDE     =1 

GO    TO    7C 

CONTINUE 

I PDE     =    IDE    +    1 

GO    TO     7C 

CCNT  I  NUE 

IF    (  (  LINE+LICRJ 

CHNT  IMUE 


DC ODE ( I)  )    GO    TO     8 


IT.     LWAX)     GO    T0    70 


E 

,11) 
•  ■  ) 
LIKE 


+    1 


NA 
1) 


CCNTINU 

WRITE  (  6 

FORMAT  ( 

LINE    = 

IBL    =     1 

LC    =     1 

DC   30    I     =    1  , 

IF    (IBL    .LT. 

DC    L5     IB    =    LCLMX 

I  PL(  I  BJ     =    IBLK 
IBL    =     0 
CCNT  IMUE 

DC    20    I  I     =    ItLAU 
IF    (IALP2(  I  I,  I)     . 
GC   TO    20 
CONTINUE 

ULP2(  II,  I  )    =    ISCO 

ICH   =    II    +    1 

LCT   =    LC    + 

IF    (LCT     .GT 

GC   TO    21 

CONTINUE 

II  =    0 
DC    24     J    = 
11=11+ 
IPL(J)    = 
CCNT  I  NUE 
LC    =    LCT    + 
GC   ~0    30 
CCNTI  NUE 
WRITE( 6,27) 
FCRMAT  (15X, 
LINE    =    LINE 
IBL    =     1 

LC    =    1 

LCT    =    ICH 

GO    TO     2  1 

CONT  IMUE 

IF    (IBL    .LT.     1)     GO 

DO    3  1    IB    =    LC,    LMX 

IFL(IB)     =    IBLK 

CCNTI  NUE 

IPL(LC-2)    =     IBLK 

WFITE(6,27)     IPL 

LINE     =     LINE    +    1 

I  FN    =    0 

II  =    0 
J    =    1 
LC   =     0 
ICH    =    0 
CONTINUE 
11=     II     +    1 
LC    =    LC    +    1 
ICH    =     ICH    + 
IF    (  HLD3(  I  I 


0    TO     16 


EQ.     IBLK    .AND.     I ALP2( I  I  «■  1  , 1 )     .EC.     IBLK)    GC    TC 


ICH    -     3 
.    LMX)    GO 


LCLCT 
1 
IALP2(  II, I) 


IPL 
60A1) 
♦    1 


TO 


TO    32 


EQ. 


1 
) 
1  ) 


IF    (  LC 

ICH    =     0 

I  F    (  I  ALP3(  II+U 

IF     UALP3(IH-2) 


IE.     IBLK) 
J    =    J     +    1 


GO    TO     26 


,NE. 
Nfc. 


I3LK  ) 

IELK) 


GO 


TO     26 
T0    26 
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36 


38 
33 


39 
40 


44 


45 


46 
47 


48 
50 


49 
52 


54 


60 
61 


IFN    =    1 
GO    TO    3  8 
CCNT  IMUE 


GT 
LT. 


33 
UE 
I    - 


=    INDA 

0 
0 


IF    (  LC 
IF    (  I  I 
I  F  M=  1 
GC    70 
CONT  If 
I  I    =     I 
CCNTI  NUE 
WRITE( 6, 39) 
LINE    =     LIME 
IF    (IFN    .GT 
ICH   =     0 
J    =    II     +1 
LC    =     0 
IF    {  I  I     .LT, 
FCRMAT  (18X  , 
CONTINUE 
IFN    =    0 
LVnS    =    LfS 
11=0 
IS    =    0 
J    = 
IUDi 
LC   = 
ICH    = 
CONTINUE 
11=     II     ♦    1 
LC   =    LC    +    1 
ICH    =     ICH    + 
IF    ( IALP4( I 
IF    (  LC     .GT. 
J    =    J    +     1 
LC   =    0 
CCNTI NUE 
ICH    =     0 
IF    ( I ALF4( I 
IF    i'IALF4(I 
I  FN    =     1 
GC    TO    48 
CONTINUE 
IF    (  IALP4(  I 
CCNT  I  NUE 
IF    (LC     .GT. 
IF    (  II     .LT. 
IFN=i 
GO    TO     50 
CCNT  I  NUE 
I  I    =    I  I     -    I 
CONTINUE 
IF    (IS     .  GT  . 
WRITE! 6,49/ 
ICH   =     0 
J    =    I  I     +1 
LC    =     0 
L  1ME    =    LINE 
IF    (IS     .GT 
IF    (  IF 
IF    (  I  I 
F  CRMAT 
GO    TO 
IS    =     1 
ICH    =    0 
I  I    =     II 
IF    (  LC 
I  S    =    2 
J    =    J    + 
LWS    =    47 

ii  =   ii   +  :. 

GO    TO     4  4 
CCNT INU E 
W  *  I  TL:  (  6  ,  ft  l) 
FORMAT ( 24Xr 


.     LMT)     GO    TO    33 
LTI )    GO    TO     3  4 


ICH 

(  IALP3(  K)  ,     K=J,II  ) 

♦    1 
.    0)     GO    TO    40 


LTI  )    GO    TO    34 
57A1J 


I  )     .NE  .     IBLK  )    GO    TO     46 
I)     GO   TO    45 


1  +  1)     .NE.     IBLK)    GO     TO     47 
1+2)     .NE.     IBLK)     GO    TC    47 


L^S)     30    TC    48 
LSO)     GO    TH     44 


CH 


N 


.G 
.LT 

(2 IX 

1Q 


^     i 


1)     GO    TO     60 

( IALP4(K)  ,     K  =  J,II  ) 


+    1 

0  )     GO    TO    54 
.     0)     GO    TO     10 
LSO)     GO    TO     4  4 
54A1J 


.GT-    1)    GO    TO    4  8 


i 


I  WDA.      (I ALP4 (K)  f     K  =  Jf  1  I  ) 
A*if     lAf     4tAl) 
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INF 


70 

71 
72 
73 
74 

75 
77 


80 


F 
of 


LINE    =     L 

IF    ( I  FN 

I kDA     ■     IBLK 

ICH    =     0 

J    =    II     +1 

LC    =     0 

IF    (II     .LT. 

GC   TO    L0 

CONTINUE 

L  IME    =    0 

WRITE(6  ,71  } 

FORMA  T(  '1'/ 

WPIr  E(6  ,72) 

FCRMAT(33X, 

WRITE( 6, 73) 

FCRMA"  (35X, 

WRITE(6, 74) 

FOR^AT( //30X, 

IF    (INPUe     .LT 


+    1 
0) 


G?    TO     10 


LSO)    GO    TO    44 


•ov 

HEAD1 
7  44) 
HEAD2 
5  A4) 
HEA03 
344 
1  J 


0') 


,  (DEPTH  ,IPDE)  »  1  =  1, LEND) 
,42,  744) 
GO  ^C  77 
<  PUBC  I  ,IPPU)  ,I-1,LENF),  CGNT 


4-A3  ,  IX  ,  43) 


(PUBU  ,IPPU)  ,  1=1  ,LENF) 


//GC.F 
//  DCB 
//  L 

//GO.S 


4 

B 

C 

D 

END 

ALL 


C 
J 

C 

T 
OF 


WRITE( 6,75) 
WR  If  E(6,  11) 

FCRMAT( /    30X 
GO    TO    2 
CCNTINUE 
WRITE(6,75) 
WRITE(  6,  11) 
I  f\  PJ  3    =     1 
GC    TO    2 
CONTINUE 
WFITE(6,71  J 
STOP 
END 

TC3F001     DC 
=(RECFM=F9 , 
APEL=  (  1,NL, 
YSIN    OD    * 

ONTRIBUTIONS    TO    BOOKS 
OURNAL     PUBS     £    CONFERENCE 
ONFERENCE    PRESENTATIONS 
ECHNICAL    REPORTS    AND    NOTES 
FU3    COCES 


CI3P=(  OLD,  KEEP  ),  UN  IT=  3  40  0-4,  DSN=  40  C, 
LRECL=  300,  BLK  SIZE  =300  ,  CEi\=2)  , 
,  IN)  ,VOL  =  (  , RETAIN, SER=LIB9 99) 


DROCS 
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// 
// 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


EXEC       FORTCLG 
FORT. SYS  IN     DO    * 

GETBOOK 

THIS     PROGRAM    GETBOOK     IS    USED    TO    PREPARE    A    TAPE    F<>OM    WHICH    THE    POCK 
"RECENT    NPS    PUBLICATIONS"    CAN    3E     PRICED.       THE    PRINTING     IS     OONE    WI'H 
ThE    PROGRAM    CALLED    BOOK 

THIS    PROGRAM    WILL    EXTRACT    RECORDS     eY     PUB    CCDE    FRCV    THE    FILES    SPECIFIED, 
GRHUD    THEM     AS     INSTRUCTED     IN    rHE     DATA,     ^CRT     THE  V     (SEE     LAST    CARD), 
AND    WRITE    ThEM    ON    A    NEW    TA°E    READY     FCR    PRINTING    BY    BOOK. 


SETUF 

joe, 


DECK,    END 


JCL    SPECIFYING    INPUT    FILES. 

THREE    CARCS     SHOWING    A  UNP 

DATA    CARD    SHOWING    NUMBER    CF 

DATA    CARD    SHOWING    NUMBER    OF 

OAT  A    CARC    SHOWING    »U3    COCES 

REPEAT    LAST    TWO    CARDS    FCR    REMAINING 

15    JCL     CARDS    RELATED    TO    SORTING    AND 


THE 
THE 


OUTPUT  "APE  AND  FILE 
FINAL  CARD  SPECIFI ES 


y      y  k.  —    •  • « • « 

GROUPS 

PUB    CODES    IN    FIRST 

P'     FIRST    GROUP 

G«»  GUPS..  .. 

WRITING    THE 


GPCUP 


OUTPUT    'APE 


NUMBER     /5RE    SPECIFIED    nrj    CARD     14 
HOW    THE    FILES    ARE    TC    BE    SCRTED 


•E 


SELECT(22) 
,'F  *, »G  •  ,  'H» 


DIMENSION    SELE(20,10),     ISV(IO) 
DIMENSION    ALL( 199) ,     ALPHA(2,22) 
REAL    RAN(10  )    /  '  A'  ,  '  3  •  ,  *  C  ',  'D 
IGMX    =    10 
1 SMX    =     20 
I  N    =    0 
IC    =    0 
IAL    =     2  2 
REA0(5,1)     AL°HA 

1  FORMAT!  10(  IX,    Al,    3X,    A3)) 
PEAD(5,2)     IGRP 

IF    (  IGRP    .  LE.     IGMX  J    GC    TC    14 
WRITE( 6, 57)     IGMX,     IGRP 

57  FCRMAT('l       ERROR    4    OF    GROUPS    EXCEEDS    MAX    OF    «,    16 
1        '       VALUE     IS    '  ,     16 i 

STOP 

14  CCNTINUE 

OC    20    K    =    1  ,IGRP 
READ(5,  2)     I  S 

2  FCRMAT  <  14) 

I  SV(K)     =    I  S 

IF    (  IS     .LE.     ISMX)    GO    TO     15 

WFITE(6,5?)     PAN(K),     ISVX,     IS 

58  FORMA  T{   '1      ERROR    *    IN    GROUP    '  ,    Al 
1        '       VALUE     IS     ',     16) 

STOP 

15  CONTINUE 
R  EA0(5,3  )    (  SELECTl  I),      1=1, IS) 

3  FCRMAT(20A4) 
««»     RAN(K)  ,     (  SELECTU) 


J«  / 


EXCEEDS    MAX    CF 


16 


59 


4 

20 

9 


FCRMAT  (///  ! 
OC    4    I     =    I  ,IS 

SA    =    SELECTU  ) 

DC    5    J    =    1, IAL 

I  F    (  SA     .ME.     ALPHAI2 

CONT  INUE 

S  ELE(  I  ,  K)    =     ALPHAU 

GO    TD     4 

CONT  T'UE 

WF1TE(6,7)     SA 

FORMAT!  '  1       ERROR 

STO  = 

CCNTl^U  E 

CONTINUE 

C^NT  INUE 

READ(  8  ,10  ,END=50) 

IF    ( IN     .3i .     50) 

WRITE(6,56)     AA, 


J=1,IS) 
oj  3    CODES     IN    GROUP     '  ,    Al, 


ARE 


/  (2X,  2CA5)  ) 


J)  )     GO  TO  5 
J  J 


IN  I NPLT  PUB  CODE  ' ,  A4 ) 


AA,  A^JB,  ALL 
_0  TO  1C1 
APUB,   (ALL(I),  1=1, 2CJ 
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101 
56 


C  C  NT  I NU  E 
FCRMAT( IX, 


8 
12 


13 

10 
50 
51 


IN 
DC 
I  £ 

on 

IF 


=     IN    +     1 

13    K    =    I , IGRP 

=    I  SV<K) 


A4i    A2  ,    2  0A4) 


8     I    =    1,  IS 
(APUE    .EQ. 

C  ONT I  N  UE 

GO    TO     13 

CCNTINUE 

APUB    =    RAN(K) 

WR  ITE(9,10  )    AA, 

IC    =    IC    +    1 

GO    TO    9 

CCNT  INUE 

GC   TO    9 

F0RMAT(A3»A  1,  199A 

WFirE(6,51J     IN,     I 

FCRMAT(  '  1       END    OF 

STOD 

END 
//G0.FTC8F001    00    DISP=< 
//    DCB=(RECFM  =  FB,LRECL= 
//       LA8EL=(li ,NLi  , IN)  ,V 
//  DD    DI SP=( 

//  0CB=  (RECFM  =  FB,LR  ECL  = 
//  LABEL  =  (12  ,NL,  ,IN) ,V 
//  DO    DISP=( 

//  CCB=(RECFM  =  F8,  LPECL= 
//  LABEL=(  13  ,NL,  ,1  N)  ,V 
//GO.FTC9F001    DO     IN  I  T=  S 


SB.  E(  ItKi  J    GO    TO    12 


4PUB,     ALL 


4) 
C 
RUN: 


RECORDS     IN    •  ,     16,     ■       AND    CUT 


16) 


// 

A 
K 
U 


DC8=(RECFM=FB,LkECl 


BK- 
PI- 
flS 


CHB    SYE 


SYC    SYI     *EC    A8I 


UNP    B  BK-    C         T3 

PP-    L  PI-    M         AB 

THE    V 

A 

4 
BK-    TBK 

6 
PP-    FI- 

2 
P*C    PRI 

2 
RPT   tn- 

//SORTEM  EXEC 
//SORTPR  DO 
//SORTLIB  DO 
//SCRTWK01  DO 
//S0RTWK02  00 
//SHRTWK03  OD 
//SCRTWK04-  DC 
//S0RTWK05  DO 
//S0RTWK06  DD 
//SQRTIN  00  UNIT=SYSDA» 
//  DC^CECPMs"  ,  LRrCL 
//SOSTOUT  DO  DISP*CNEWi 
//  DC3=(RECFM=F3 ,LRcCL= 
//  LA8EL=(  1,3LP)  ,V3L  =  S 
//SYSIN    00    * 

SORT    FIELDS  =  (4,L,3I  ,A 


CLCKEEP)  ,JNIT=3A00-4,  CSN=OUM, 
800»BLKSIZE  =  800,DEN=2)  t 
0L= (  ,RETAIN,SEP  =  LIB202) 

OLD,  KEEP)  ,UNIT=AFF  =  FT03F001,CSN=DUM, 

300,8LKSIZE= 300,DEN=2)  , 

0L=< , RETAIN, S  ER  =  LI02O2 J 

OLD,  KEEP)  , UNI  T  =  AFF=FT08 FOO I , CS N=CU V , 

800, eLKSIZE=300,CEN=2) , 

0L=(  , RETAIN,  SER  =  LI5202  ) 

YSOA  ,  SPACE  =(C  YL,(1  CI)  )  ,0  S  N=TC.  SO  PT  , 

=800,BLKS IZE  =  800  ),DISP  =  (NEW, PASS, DELETE) 

K    0  PRC    E  PRI     F  SYC    G  SYI     h         SYE     I 

C    N  A3I    0  CHB    P         RPR    Q  RPT    R  PAT    S 


LTR    J 

REV    T 


PGM=IERRCOOOt REGION=  150K 
SYSOUT=A 
DSN=SYS1.  S 
UNIT=S/SO 

UNI7  =  SYSD 
UNIT=SYSO 
UNIT=SYSD 
LNIT=SYSO 
UNIT=SYSD 
S 


0RTLIB,DI SP=SHfi 
*,SPACE=(CYL,(  15),  ,  CON  TIG) 
A,SPACe=(CYL, (15), ,CONTIGJ 

\t  SPAC5  =  (CYL,(  15)  ,  ,CCNTIG) 

A,SPAC==(CYL,l  15),,CCNTIG) 

A,SPACE=(CYL,(  15  )t  ,CCNTIGJ 

4»SPACE=CYL,(  15),,C0NTIG) 

N=TC.SORT,  DlSP=(nLD, DELETE, DELETE), 
=800  ,BLKSIZE =800 ) , LABEL =  (,,* IN) 
KEEP), UN  IT=(  3  400-«,,JEFER)  ,0  £N  =  SORTED, 
300, 3LKSIZE=500, CEN=2) , 
ER=LIB^<;9 

,1  ,3  ,  EI,  A,  73  7, 64,3  I,  A,  10,3,  81,  A),  S  I  Z  E=  E  30  00 
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